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1.0  INTRODUCTION 


This  technical  document  presents  the  implementation  of  a  software  interface  between  a 
Unix  operating  system  that  is  executing  on  a  Na\7  DTC— 2  VMEbus  computer  workstation 
and  a  VMEbus  AN/UYK— 44(V)  enhanced  processor  (EP)  embedded  within  that  worksta¬ 
tion. 

Figure  1  shows  the  hardware  configuration.  All  the  hardware  shown  reside  within  the 
DTC-2  chassis.  The  VME  AN/UYK-44(V)  EP  and  VME  random  access  memory  (RAM) 
boards  use  the  standard  6U  form  factor  and  are  located  in  the  upper  card  cage.  The  Sun-4 
processor  board  uses  the  9U  form  factor  and  is  located  in  the  lower  card  cage.  The  Sun— 4 
board  employs  the  SPARC  microprocessor.  The  Sun— 4  board  provides  the  VMEbus  system 
controller  function.  The  upper  card  cage  is  at  the  far  end  of  the  VMEbus  arbitration  and  inter¬ 
rupt  daisy  chains. 

The  VME  AN/UYK— 44(V)  EP  board  does  not  have  any  local  memory.  It  executes  pro¬ 
grams  from  the  VME  RAM  board.  The  VME  RAM  board  contains  two  megabytes  of  memory. 
It  is  configured  with  a  VMEbus  base  byte  address  of  10  000  000  hexadecimal.  The  AN/ 
UYK-44(  V)  EP  does  have  a  cache  to  help  minimize  VMEbus  traffic.  The  VME  Sun— 4  board 
has  both  a  local  memory  and  a  cache.  It  is  programmed  to  access  the  VME  RAM  board  when  it 
needs  to  share  data  with  the  VME  AN/UYK-44(V)  EP  board. 

The  software  interface  between  the  Sun-4  and  AN/UYK-44(V)  EP  applications  uses  the 
Unix  STREAMS  mechanism  to  emulate  the  AN/UYK— 44(V)  input/output  controller  (IOC) 
function  within  the  Sun- 4.  The  AN/UYK— 44(V)  application  directs  the  interface  by  supply- 


RS-232 


VMEbus 


Figure  1.  AN/UYK-44(V)  embedment  within  a  DTC-2 
VMEbus  computer  workstation 
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ing  AN/UYK-44(V)  command  instructions  and  chain  programs  within  the  VME  RAM.  The 
Unix  application  communicates  with  the  interface  by  using  the  Unix  file  system  calls. 
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2.0  APPLICATION  INTERFACES 


This  section  presents  the  Unix  application  interface  and  the  AN/UYK— 44(V)  application 
interface  for  the  Unix  STREAMS  emulation  of  the  ANAJYK-44(V)  input/output  controller. 


2.1  READ  OUTPUT  AND  WRITE  INPUT  DATA  TRANSFERS 

The  AN/UYK-44(V)  IOC  channels  appear  to  the  Unix  application  as  sequential  files. 
Each  IOC  channel  file  has  an  entry  in  the  /dev  directory.  The  emulation  .supports  four  lOC'-s, 
with  16  channels  per  IOC,  giving  a  total  of  64  /dev  entries.  The  file  names  are  of  the  form 
"iocx.y",  where  jc  is  the  AN/UYK— 44(V)  IOC  number,  andy  is  the  hexadecimal  channel 
number  on  lOCx.  Channel  15  on  IOC  2,  for  example,  has  file  name  "ioc2 .  f  ". 

The  Unbc  application  establishes  and  releases  access  to  the  AN/UYK-44(  V)  channel  files 
by  using  the  Unix  open  and  close  system  calls,  respectively.  The  Unix  application  sends  data 
to  the  AN/UYK— 44(V)  by  using  the  Unix  write  system  call,  and  obtains  data  from  the  AN/ 
UYK— 44(V)  by  using  the  Unix  read  system  call. 

The  following  program  reads  output  data  from  AN/UYK-44(V)  IOC  2  channel  15  and 
displays  it  in  hexadecimal  format. 

#include  <fcntl.h> 

#define  FILENAME  " /dev/ioc2 , f " 

#define  BUFSIZE  16 

main( ) 

int  fd; 

char  buffer [ BUFSIZE ] ; 

int  i,  n; 

if((fd  =  open ( FILENAME ,  0_RDWR) )  <  0)  { 
perror ( "open  failed" ) ; 
exit( 1 ) ; 

} 

if({n  =  read(fd,  buffer,  sizeof (buffer )) )  <  0)  { 
perror ("read  failed"); 
exit ( 2 ) ; 

} 

for(i  =0;  i  <  n;  i++)  { 

( void)printf ( "  %02x",  buffer[i]  &  OxFF); 
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} 

(void)putchar ( ' \n' ) ; 

} 

2.2  EXTERNAL  FUNCTION  DATA  TRANSFERS 

The  AN/UYK-44(V)  IOC  distinguishes  between  normal  transfers  and  external  function 
transfers.  When  there  is  a  requirement  to  read  AN/UYK-44(V)  external  function  transfers, 
the  Unix  getmsg  system  call  must  be  used  instead  of  the  Unix  read  system  call.  The  getmsg 
system  call  separates  the  “control  part”  from  the  “data  part”  of  a  stream  message  by  placing  the 
parts  into  different  buffers.  For  the  AN/UYK-44(V)  IOC  emulation,  the  stream  message  as¬ 
sociated  with  a  normal  transfer  has  a  data  part  but  no  control  part,  while  that  associated  with  an 
external  function  transfer  has  a  control  part  but  no  data  part.  The  Unix  application  can  distin¬ 
guish  between  normal  and  external  function  reads  by  determining  which  stream  message  part 
the  getmsg  system  call  receives. 

The  ANAJYK— 44(V)  IOC  also  distinguishes  between  external  functions  and  forced  exter¬ 
nal  functions.  The  emulation  processes  forced  external  functions  as  “high-priority”  stream 
messages.  This  means  that  forced  external  function  messages  will  be  received  before  other 
types  of  messages  when  messages  are  queued  waiting  to  be  accepted  by  the  Unix  application. 

The  following  program  reads,  identifies,  and  displays  output  data,  external  function  data, 
and  forced  external  function  data  from  ANAJYK-44(V)  IOC  0  channel  3. 

#include  <fcntl.h> 

#include  <stropts.h> 

#define  FILENAME  " /dev/iocO , 3" 

#define  RDBUFSIZE  16 
#define  EFBUFSIZE  2 

main( ) 

{ 

int  fd; 

struct  strbuf  rdbuf; 
struct  strbuf  efbuf; 
char  rddata[RDBUFSIZE] ; 
char  efdata[EFBUFSIZE] ; 
int  flags; 
int  i; 

if((fd  =  open (FILENAME,  0_RDWR))  <  0)  { 
perror ( "open  failed" ) ; 
exit ( 1 ) ; 


rdbuf.maxlen  =  sizeof ( rddata ) ; 
rdbuf.buf  =  rddata; 

efbuf .maxlen  =  sizeof ( ef data ) ; 
efbuf.buf  =  efdata; 

flags  =  0; 

if (getmsg( fd,  iefbuf,  trdbuf,  iflags)  <  0)  { 
perror ( "getmsg  failed"); 
exit ( 2 ) ; 

} 

if(rdbuf.len  >0)  { 

(void)printf ( "UYK-44  output  data\n"); 

for(i  =  0;  i  <  rdbuf.len;  i+-*-)  { 

( void)printf ( "  %02x",  rddata) i]  &  OxFF); 

} 

(void)putchar( ' \n' ) ; 

} 

if(efbuf.len  >0)  { 

if (flags  ==  RS_HIPRI)  { 

(void)printf ( "UYK-44  force  exterr al  function  data\n"); 

} 

else  { 

( void ) printf ( "UYK-44  external  function  data\n"); 

} 

for(i  =  0;  i  <  efbuf. len;  i++)  { 

( void)printf { "  %02x",  efdata(i]  6  OxFF); 

} 

( void ) putchar ( ' \n ' ) ; 

} 

} 

2J  EXTERNAL  INTERRUPT  GENERATION 

The  Unix  application  sends  an  external  interrupt  to  the  ANAJYK— 44(V)  through  a  chan¬ 
nel  by  using  the  ioctl  system  call  with  the  I_STR  parameter.  The  call  takes  a  pointer  to  a 
strioctl  structure  as  an  argument.  The  include  file  otropts .  h>  defines  the  strioctl 
structure.  Structure  member  ic_dp  is  a  pointer  to  the  data,  and  structure  member  ic_len  is 
the  size  of  the  data  associated  with  the  call.  For  the  external  interrupt,  the  data  is  the  value  of 
the  external  interrupt  word  stored  by  the  externa,  nterrupt  into  AN/UYK-44(V)  memory. 
The  size  of  the  data  is  used  to  determine  whether  a  16— bit  word  or  a  32-bit  double— word  is 
stored  in  the  ANAJYK-44(V)  memory. 


The  AN/UYK-44(\')  IOC  swaps  the  two  16— bit  halves  of  32 -bit  external  interrupt  words 
before  storing  them.  There  is  no  .such  thing  as  an  8— bit  externa]  interrupt  word.  Since  8— bit 
transfers  use  the  8  least— significant  data  bits  on  16— bit  parallel  channel  interface  hardware,  it 
is  logical  to  use  the  8  least -significant  bits  of  the  16-bit  external  interrupt  words  when  emu¬ 
lating  8 -bit  peripherals.  This  decision,  however,  is  left  to  the  programmer. 

The  following  program  sends  a  16— bit  external  interrupt  to  AN/UYK— 44(V)  IOC  0  chan¬ 
nel  3.  The  external  interrupt  word  has  a  value  of  0x1234. 

#include  <local/epcntl . h> 

#include  <fcntl.h> 

#include  <stropts.h> 

#define  FILENAME  "/dev/iocO.3" 

#define  EIWORD  0x1234 

main( ) 

{ 

int  fd; 

struct  strioctl  cntl; 

unsigned  short  eiword; 

if{(fd  =  open (FILENAME,  0_RDWR))  <  0)  { 
perror ( "open  failed"); 
exit ( 1 ) ; 

} 

eiword  =  EIWORD; 

cntl.ic_cind  =  EXT_INTR; 

cntl .  ic_tiniout  =  5; 

cntl.ic_dp  =  (char  *)Sreiword; 

cntl.ic_len  =  sizeof (eiword) ; 

if(ioctl(fd,  I_STR,  icntl)  <  0)  { 
perror ( "ioctl  failed"); 
exit ( 2 ) ; 

} 

} 

2.4  IOC  COMMAND  INSTRUCTIONS 

The  VME  AN/UYK— 44(V)  EP  initiates  execution  of  an  IOC  command  instruction  emu¬ 
lation  by  first  loading  a  command  block  at  a  dedicated  location  in  the  VME  RAM,  and  then  by 
sending  a  VMEbus  priority  level  2  interrupt  to  Unix  to  indicate  that  the  command  block  is 
ready  for  processing.  Figure  2  shows  the  format  of  the  IOC  emulation  command  block. 
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-I -  16-BIT  AN/UYK-44(V)  WORD  - ■ 

15|14|13|12|11|10|  9|8|7|6|5|4|3|2|1|0 
ep_c_lock 

ep_limit 

ep_iocr 

ep_rega 

-  ep_cell  - 


Figure  2.  IOC  emulation  command  block  format 


Since  the  command  block  is  a  resource  shared  between  the  ANAJYK-44(V)  and  Unix, 
coordination  is  required  to  insure  that  the  AN/UYK-44(V)  does  not  enter  a  new  command 
before  Unbc  has  captured  the  content  of  the  previous  command.  Before  entering  a  new  com¬ 
mand,  the  AN/UYK-44(V)  should  test  the  ep_c_lock  word  using  the  AN/UYK-44(V) 
processor  biased  fetch  instruction.  The  command  block  is  available  when  the  biased  fetch  in¬ 
struction  reads  bits  14  and  15  as  zero.  After  performing  its  read,  the  biased  fetch  instruction 
writes  ones  into  bits  14  and  15  to  mark  the  command  block  as  busy.  The  emulation  clears  the 
ep_c_lock  word,  including  bits  14  and  15,  after  its  interrupt  service  routine  has  captured  the 
command  block  contents. 

The  ep_l  imi  t  word  specifies  the  maximum  number  of  emulation  cycles  permitted  before 
the  chain  is  automatically  terminated.  Emulation  cycles  are  explained  later  in  section  3.5.  The 
ep_limit  word  is  intended  as  a  debugging  aid.  The  ep_limit  word  is  ignored  when  set  to 
zero. 

The  command  block  ep_iocr  and  ep_rega  words  are  patterned  after  the  operation  of 
the  ANAJYK-44(V)  processor  lOCR  and  IOC  instructions.  Bits  3  through  0  of  the  ep_iocr 
word  indicate  the  channel  number.  When  bits  7  through  4  are  zero,  the  IOC  number  is  zero  and 
the  ep_rega  word  is  ignored.  When  bits  7  through  4  are  not  zero,  the  IOC  number  is  read 
from  bits  1  through  0  of  the  ep_rega  word. 


H -  16-BITAN/UYK-44(V)  WORD  - H 


15i14|13|12|11|10|9  |8 

7i6l5|4 

312,1,0 

Op 

a 

m 

y  (RK  and  RX  only) 

Op 

a 

m 

Mnemonic 

Format 

Description 

EO 

— 

0 

ACR 

0 

RR 

Clear  All  Channels 

EO 

- 

4 

ACR 

4 

RR 

Enable  El  Data  Transfers  on  All  Channels 

EO 

- 

5 

ACR 

5 

RR 

Disable  El  Data  Transfers  on  All  Channels 

EO 

- 

6 

CCR 

a,  6 

RR 

Enable  Lower  Channel  Interrupts 

EO 

- 

7 

CCR 

a, 7 

RR 

Disable  Lower  Channel  Interrupts 

EO 

- 

8 

CCR 

a,  8 

RR 

Clear  Channel  a 

EO 

- 

9 

CCR 

a, 9 

RR 

Clear  Input  on  Channel  a 

EO 

- 

A 

CCR 

a,  A 

RR 

Clear  Output  on  Channel  a 

EO 

- 

C 

CCR 

a,C 

RR 

Enable  El  Data  Transfer  on  Channel  a 

EO 

- 

D 

CCR 

a,D 

RR 

Disable  El  Data  Transfer  on  Channel  a 

EO 

- 

E 

CCR 

a,E 

RR 

Enable  Interrupts  on  Channel  a 

EO 

- 

F 

CCR 

a,F 

RR 

Disable  Interrupts  on  Channel  a 

E6 

- 

- 

WIMK 

a,y,m 

RK 

Write  Channel  Control  Register 

E6 

- 

2 

ICK 

a.y 

RK 

Initiate  Input  Chain 

E6 

- 

6 

OCK 

a/y 

RK 

Initiate  Output  Chain 

E7 

- 

- 

WIM 

a,y,m 

RX 

Write  Channel  Control  Register 

EB 

- 

- 

RIM 

a,y,m 

RX 

Read  Channel  Control  Register 

FB 

- 

- 

SST 

a,y,m 

RX 

Store  Channel  Status  Register 

Figure  3.  Emulated  ANAJYK-44(V)  IOC  command  instruction  formats 


The  two  ep_cell  words  correspond  to  the  ANAJYK-44(V)  IOC  command  cell.  They 
hold  the  command  instruction  to  be  emulated.  Figure  3  shows  the  format  and  the  list  of  im¬ 
plemented  IOC  command  instructions. 

The  initiate  input  chain  and  the  initiate  output  chain  command  instructions,  ICK  and  OCK, 
start  the  execution  of  input  and  output  IOC  chain  program  emulations,  respectively.  The  num¬ 
ber  of  input  and  output  chain  programs  executing  simultaneously  is  limited  only  by  the  number 
of  configured  channels,  which  is  typically  64. 

The  emulation  does  not  execute  an  AN/UYK— 44(V)  IOC  command  when  the  file  asso¬ 
ciated  with  the  AN/UYK— 44(V)  channel  on  which  the  command  is  to  execute  has  not  been 
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opened  by  the  Unix  application.  Requests  to  execute  a  command  associated  with  an  unopened 
channel  file  are  discarded. 


2.5  IOC  CHAIN  PROGRAMS 

The  AN/UYK-44(V)  IOC  emulation  executes  chain  programs  located  in  the  AN/ 
UYK-44(V)  memory.  The  chain  programs  are  coded  using  a  subset  of  the  AN/UYK— 44(V) 
IOC  instruction  set.  Figure  4  shows  the  format  and  lists  the  AN/UYK-44(  V)  IOC  instructions 
that  are  implemented  by  the  emulation. 

The  emulation  is  incorporated  within  the  Unix  kernel.  Since  the  emulation  blindly  follows 
the  chain  program,  care  must  be  exercised  when  coding  chain  programs  containing  infinite 
loops. 


NOTE:  Executing  a  chain  program  containing  an  infinite  loop  will  cause  the 
Unix  kernel  to  enter  an  infinite  loop. 

Not  all  infinite  loops  are  bad.  The  ones  that  cause  trouble  are  those  without  some  form  of  flow 
control.  A  chain  program  consisting  of  an  unconditional  branch  instruction  branching  to  itself 
will  cause  the  kernel  to  spin  indefinitely.  The  only  way  to  escape  such  a  loop  is  to  send  a  clear 
channel  command  from  the  AN/UYK-44(V),  or  to  hardware  master  clear  the  Unix  system. 
On  the  other  hand,  loops  containing  data  transfer  instructions  are  less  likely  to  cause  trouble 
because  they  interact  with  stream  queues.  Flow  control  on  these  queues  can  suspend  the  chain 
when  the  queue  becomes  full  or  empty. 

2.6  AN/UYK-44(V)  INTERRUPT  GENERATION 

There  are  a  number  of  instances  where  the  AN/UYK— 44(V)  IOC  emulation  sends  an  in¬ 
terrupt  to  the  AN/UYK— 44(V)  EP  hardware.  These  include  external  interrupts  initiated  by 
the  Unix  application,  and  input  chain,  output  chain,  instruction  fault,  and  memory  protection 
fault  interrupts  initiated  by  the  emulation. 

A  board  on  the  VMEbus  generates  an  interrupt  within  the  VME  AN/UYK -44(V)  EP 
board  by  writing  into  any  of  the  64  mailbox  locations  recognized  by  the  VME  AN/UYK— 44(V) 
EP  board.  The  AN/UYK— 44(V)  IOC  emulation  uses  one  of  these  mailbox  locations.  The 
VME  AN/UYK— 44(V)  EP  board  recognizes  the  mailbox  address.  The  VME  RAM  board 
stores  the  mailbox  data. 

The  VME  AN/UYK— 44(V)  EP  requires  all  64  mailbox  locations  to  be  the  same  size.  The 
size  may  be  2,  4,  8,  or  16  bytes.  The  SPARC  processor,  however,  can  only  perform  1-byte, 
2-byte,  and  4— byte  VMEbus  accesses.  The  emulation  performs  a  4-byte  write  into  the  mail- 
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Figure  4.  Emulated  AN/UYK— 44(V)  IOC  chain  instruction  formats 


box  dedicated  to  it.  Thus,  any  mailbox  size  equal  to  or  larger  than  4  bytes  can  be  used.  A  mail¬ 
box  size  larger  than  4  bytes  may  be  required  by  some  other  board  in  the  VMEbus  system  not 
presented  here. 

The  emulation  passes  information  that  identifies  the  interrupt  to  the  AN/UYK— 44(V) 
through  the  interrupt  parameter  block.  Figure  5  shows  the  format  of  the  interrupt  parameter 
block.  The  emulation  tests  the  ep_i_lock  word  to  see  if  it  is  set  to  zero.  If  the  ep_i_lock 
word  is  not  zero,  the  emulation  waits  on  the  assumption  that  the  AN/UYK— 44(V)  is  still  pro¬ 
cessing  the  previous  interrupt.  If  the  ep_i_lock  word  is  zero,  the  emulation  loads  the  other 
words  of  the  interrupt  parameter  block,  then  sets  all  the  bits  of  the  ep_i_lock  word  to  ones, 
and  finally  writes  the  AN/UYK— 44(V)  absolute  16— bit  word  address  of  the  interrupt  parame¬ 
ter  block  into  the  mailbox  to  trigger  the  AN/UYK— 44(V)  interrupt.  It  is  the  responsibility  of 
the  softw'are  executing  on  the  AN/UYK— 44(V)  to  clear  the  ep_i_lock  word  once  it  has  cap¬ 
tured  the  contents  of  the  interrupt  parameter  block. 


Fif 're  5.  IOC  interrupt  parameter  block  format 


2.7  READ- MODIFY- WTUTE  INSTRUCTION  RESTRICTIONS 

The  zero  flag  (ZF),  set  flag  (SF),  test  flag  (TF),  zero  bit  (ZB),  set  bit  (SB),  and  compare  bit 
(CB)  chain  instructions  are  implemented  on  the  AN/UYK— 44(V)  IOC  using  16-bit  read- 
modify— write  memory  cycles.  Unfortunately,  some  processor  instruction  sets,  including  that 
of  the  SPARC  used  in  the  DTC— 2,  are  not  capable  of  emulating  these  instructions  exactly.  The 
only  available  SPARC  instructions  employing  read— modify -write  memory  cycles  are  the 
Idstub,  Idstuba,  swap,  and  swapa  instructions. 

The  SPARC  Idstub  and  Idstuba  instructions  atomicly  read  the  contents  from  a  memory 
byte  location  into  a  register  and  write  ones  back  into  all  the  bits  at  the  same  memory  byte  loca- 
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tion.  The  byte  contents  are  treated  as  an  unsigned  number.  Although  the  details  differ,  the 
Idstub  and  Idstuba  instructions  are  intended  to  be  used  in  the  same  manner  as  the  AN/ 
UYK-44(V)  processor  biased  fetch  instructions.  The  six  read -modify— write  AN/ 
UYK-44(V)  IOC  chain  instructions  involve  both  setting  and  clearing  individual  bits,  and  not 
merely  setting  an  entire  byte.  The  Idstub  and  Idstuba  instructions  are  not  much  help. 

The  SPARC  swap  and  swapa  instructions  atomicly  exchange  the  contents  of  a  register 
with  a  32— bit  memory  word.  Although  exact  emulation  of  the  six  read-modify— write  AN/ 
UYK-44(V)  IOC  chain  instructions  on  the  SPARC  is  not  possible,  one  can  obtain  atomic 
coordination  between  programs  executing  on  the  two  architectures  by  placing  restrictions  on 
how  the  swap  and  swapa  instructions  are  used.  The  two  rules  are  as  follows; 

(1)  There  can  be  no  more  than  one  flag  within  any  aligned  32 -bit  word.  A  flag  here 
means  a  two -state  indicator,  which  both  architectures  are  capable  of  interpreting, 
regardless  of  the  actual  number  of  bits  involved. 

(2)  All  the  remaining  non -flag  bits  in  the  aligned  32— bit  word  must  be  either  constant 
or  not  used. 

The  first  rule  requires  dedicating  a  full  32— bit  word  because  that  is  the  only  data  aggregate 
size  that  the  SPARC  swap  instruction  can  manipulate.  To  understand  the  reason  for  the  second 
rule,  consider  how  the  swap  instruction  works.  The  swap  instruction  atomicly  exchanges  the 
contents  of  the  32-bit  flag  word  with  the  contents  of  a  register.  The  register  contents  become 
the  flag  word  contents.  But  the  flag  and  non-flag  portions  of  this  32-bit  transfer  cannot  be 
separated.  The  swap  instruction  moves  all  32  bits  together.  The  problem  is  in  knowing  what 
the  non  -  flag  bits  should  be  in  the  register  before  executing  the  swap  instruction.  If  the  non  - 
flag  bits  are  either  not  used  or  are  constant,  there  is  no  problem.  But  if  they  are  variable,  they 
must  be  read  beforehand.  Unfortunately,  they  may  change  between  the  time  that  they  are  writ¬ 
ten  into  the  register  and  the  time  that  the  register  contents  are  transferred  back  to  the  flag  word 
by  the  swap  instruction.  The  process  is  not  atomic.  The  only  way  to  make  it  atomic  is  with 
another  swap  instruction,  which  leads  us  back  to  <vl  ere  we  started.  The  second  rule  prevents 
the  problem  by  requiring  that  the  non -flag  bits  be  either  not  used  or  constant. 

Although  the  Sun— 4  processor  board  within  the  DTC-2  uses  a  SPARC  microprocessor,  it 
does  not  implement  the  swap  instruction  using  an  atomic  VMEbus  read —modify —write  cycle. 
The  VMEbus  read-modify— write  cycle  requires  that  the  AS*  signal  remain  low  between  the 
read  and  write  portions  of  the  cycle  to  prevent  other  processors  from  gaining  access.  Monitor¬ 
ing  the  VMEbus  signals  with  a  logic  analyzer  reveals  that  the  AS*  signal  goes  high  between  the 
read  and  write  portions  of  the  cycle. 

As  a  consequence  of  the  failure  of  the  Sun— 4  board  to  'r  r>lement  the  VMEbus  read-mo- 
dify-write  cycle,  the  DTC-2  emulation  of  the  zero  flag  (ZF),  set  flag  (SF),  test  flag  (TF),  zero 


bit  (ZB),  set  bit  (SB),  and  compare  bit  (CB)  AN,^YK-44(V)  IOC  chain  instructions  are  not 
atomic. 


2.8  CHANNEL  TYPES 

In  the  AN/UYK-44(V)  IOC  architecture,  channel  status  word  0  bits  7  through  4  specify 
the  channel  type.  On  the  hardware  version  of  the  ANAJYK-44(V)  IOC,  channel  types  are 
determined  by  the  particular  lOA  hardware  module  plugged  into  the  AN/UYK-44(V)  back¬ 
plane.  On  the  emulation  presented  here,  the  Unix  application  can  set  the  channel  type  by  using 
an  ioctl  system  call  with  the  CHANNEL_TYPE  parameter.  The  CHANNEL_TYPE  parameter 
is  defined  in  the  include  file  "epcntl .  h".  The  argument  is  a  byte  containing  the  channel  type 
in  the  four  least -significant  bits.  As  always,  the  ioctl  system  call  takes  the  address  of  the 
argument,  not  the  argument  itself.  The  emulation  remembers  the  channel  type  even  after  the 
Unix  file  for  the  channel  is  closed. 
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3.0  IOC  EMULATION  ARCHITECTURE 


This  section  presents  the  structure  and  concepts  employed  in  the  emulation  of  the  AN/ 
UYK— 44(V)  IOC  within  the  framework  of  the  STREAMS  facility  of  the  Unix  operating  sys¬ 
tem. 

The  presentation  below  assumes  a  basic  understanding  of  the  operation  of  the  Unix  operat¬ 
ing  system  and  STREAMS  facility.  Publications  explaining  Unix  are  widely  available.  The  bib¬ 
liography  at  the  end  of  this  document  lists  a  number  of  textbooks  for  readers  unfamiliar  with 
the  construction  of  stream  drivers  and  modules. 


3.1  EMULATION  STREAM  MODULES 

Figure  6  shows  the  interconnection  of  the  stream  modules  used  for  the  ANAJYK-44(V) 
IOC  emulation. 


Figure  6.  STREAMS  interface  to  the  AN/UYK-44(V)  EP 


The  EP  driver  module  provides  the  interface  between  the  Unix  STREAMS  facility  and  the 
AN/UYK— 44(V)  Enhanced  Processor  (EP)  hardware.  The  EP  driver  module  contains  the 
emulation  of  the  AN/UYK- 44(V)  IOC  page  registers.  It  implements  page  register  address 
mapping  and  access  error  detection  for  the  emulated  AN/UYK— 44(V)  IOC  memory  accesses 
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into  the  VME  RAM  board.  It  converts  the  command  block  interrupt  received  over  the 
VMEbus  from  the  AN/UYK— 44(  V)  EP  into  a  stream  message  for  use  by  upstream  modules.  It 
triggers  interrupts  within  the  AN/UYK-44(V)  EP  in  response  to  stream  messages  assigned 
for  that  purpose  from  upstream  modules.  It  also  triggers  interrupts  within  the  AN/ 
UYK— 44(V)  EP  for  memory  access  faults  detected  during  page  register  memory  address 
mapping. 

The  IOC  multiplexer  driver  module  directs  stream  message  traffic  between  the  many  up¬ 
stream  lOA  modules  and  the  single  downstream  EP  driver  module.  IOC  multiplexer  driver 
module  port  0  is  reserved  for  the  configuration  daemon  program.  The  configuration  daemon 
program  maintains  the  connection  between  the  IOC  multiplexer  driver  module  and  the  EP 
driver  module  independently  of  the  open  status  of  the  other  ports.  The  IOC  multiplexer  driver 
module  contains  the  emulation  of  the  channel  control  and  status  registers. 

The  lOA  modules,  one  for  the  emulation  of  each  respective  AN/UYK— 44(V)  IOC  chan¬ 
nel,  interpret  the  command,  input  chain,  and  output  chain  instructions.  They  are  automatically 
pushed  into  the  stream  when  an  IOC  multiplexer  drivei  module  port  is  opened. 


3.2  FILE  NAMES  AND  MINOR  DEVICES 

The  file  names  associated  with  the  IOC  multiplexer  driver  module  ports  reflect  the  AN/ 
UYK-44(V)  IOC  and  channel  numbers.  File  /dev/ioc2 . 3,  for  example,  is  associated  with 
AN/UYK-44(V)  IOC  2  channel  3.  A  Unbe  application  program  that  reads  AN/UYK-44(V) 
output  data  or  writes  AN/UYK-44(V)  input  data  on  AN/UYK-44(  V)  IOC  2  channel  3  opens 
file  /dev/ioc2 . 3.  Channel  numbers  larger  than  9  use  lower  case  hexadecimal  equivalents. 
IOC  2  channel  15,  for  example,  is  assigned  file  /dev/ioc2 .  f . 

Two  files  that  are  not  intended  to  be  accessible  by  the  application  are  /dev/  iocO,  which  is 
reserved  for  communication  between  the  IOC  multiplexer  driver  module  and  the  configura¬ 
tion  daemon  program,  and  /dev/epO,  which  is  reserved  for  communication  between  the  EP 
driver  module  and  the  IOC  multiplexer  driver  module.  The  EP  driver  module  and  the  IOC 
multiplexer  driver  module  permit  only  one  open  at  a  time  to  these  respective  files. 

Each  IOC  multiplexer  driver  module  port  has  a  unique  minor  device  number.  Minor  de¬ 
vice  0  is  reserved  for  use  by  the  configuration  daemon  program.  The  other  minor  device  num¬ 
bers  are  assigned  to  emulations  of  the  various  AN/UYK— 44(V)  IOC  channels.  To  convert  an 
AN/UYK-44(V)  IOC  number  and  channel  number  into  a  minor  device  number,  multiply  the 
IOC  number  by  16,  then  add  the  channel  number,  and  finally  add  one.  IOC  2  channel  3.  for 
example,  has  minor  device  number  2x16-1-3-1-1  =  36  decimal,  or  24  hexadecimal. 
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3.3  IOC  PAGE  REGISTERS 

All  AN/UYK-44(V)  addresses  point  to  16-bit  words  rather  than  to  bytes.  The  AN' 
UYK— 44(V)  IOC  maps  16-bit  AN/UYK— 44(V)  relative  addresses  into  22— bit  AN/ 
UYK-44(V)  absolute  addresses  by  using  page  registers.  Each  page  register  points  to  a  IK- 
word  page  of  memory.  Pages  are  aligned  on  1 K- word  boundaries.  The  page  register  addition¬ 
ally  specifies  the  read,  write,  and  execute  restrictions  on  access  to  the  page  through  that  page 
register  and  provides  a  bit  which  is  set  to  one  whenever  the  page  is  modified.  Figure  7  shows  the 
AN/UYK-44(V)  IOC  page  register  format. 
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Figure  7.  AN/UYK-44(V)  IOC  page  register  format 
The  AN/UYK-44(  V)  16-bit  relative  address  defines  a  64K-word  relative  address  space. 
This  64K- word  space  is  fully  mapped  by  64  page  registers.  Such  a  group  of  64  page  registers  is 
called  a  page  register  group.  The  AN/U  YK— 44(  V)  implements  four  IOC  page  register  groups. 
The  set  selected  depends  on  the  IOC  instruction  and  channel  number  involved. 
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The  AN/UYK— 44(V)  IOC  relative— to— absolute  address  mapping  process  consists  of  us¬ 
ing  the  6  most— significant  bits  of  the  relative  address  to  select  one  of  the  64  page  registers  in 
the  page  register  group,  and  then  concatenating  the  12  least-significant  bits  of  the  selected 
page  register  to  the  1 0  least — significant  bits  of  the  relative  address  to  form  the  22 — bit  absolute 
address.  Figure  8  illustrates  the  process. 


The  EP  driver  module  emulates  the  four  IOC  page  register  groups  defined  by  the  AN/ 
UYK-44(V)  instruction  set  architecture.  The  page  register  groups  are  mapped  into  the  high¬ 
est  addresses  of  the  VME  RAM  board.  The  AN/UYK-44(V)  EP  can  read  or  write  the  IOC 
page  registers  simply  by  reading  or  writing  at  the  respective  memory  locations.  The  EP  driver 
module  reads  these  locations  when  it  converts  AN/UYK— 44(V)  16-bit  relative  addresses 
into  AN/UYK— 44(V)  22— bit  absolute  addresses.  The  EP  driver  module  writes  into  these 
page  register  locations  to  set  the  most— significant  bit,  known  as  the  page  modification  bit, 
when  it  writes  into  a  memory  page  pointed  to  by  the  respective  page  register. 
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Figure  8.  AN/UYK— 44(V)  relative— lo— absolute  address  map¬ 
ping 

The  EP  driver  sets  the  page  modification  bit  by  reading  the  location  dedicated  to  the  page 
register,  setting  the  most -significant  bit,  and  then  storing  the  resulting  page  register  contents 
back  into  the  same  memory  location.  Although  it  may  seem  otherwise,  this  read-modify- 
write  operation  does  not  need  to  be  atomic.  This  is  because  it  makes  no  sense  for  an  AN/ 
UYK— 44(V)  application  to  be  both  using  a  page  register  and  asynchronously  modifying  it. 
When  the  page  register  is  in  use,  only  writes  that  set  the  page  modification  bit  should  occur. 
When  the  page  register  is  not  in  use,  only  writes  that  modify  the  page  register  should  occur.  The 
writes  in  the  two  cases  should  be  mutually  exclusive.  There  should  never  be  a  write  between  the 
read  and  write  portions  of  the  operation  setting  the  page  modification  bit.  It  is  not  essential, 
therefore,  to  provide  read -modify -write  atomicity  at  the  VMEbus  level. 

Although  the  22— bit  AN/UYK— 44(V)  absolute  address  defines  a  4M— word  address 
space,  the  VME  RAM  board  employed  provides  only  IM  words.  The  space  available  to  the 
application  is  further  limited,  albeit  only  slightly,  by  the  dedication  of  256  words  to  the  emula¬ 
tion  of  the  four  IOC  page  register  groups  described  above,  and  by  the  dedication  of  a  few  words 
to  buffers  for  communication  of  IOC  emulation  information  between  Unix  and  the  AN/ 
UYK— 44(V)  EP.  The  EP  driver  module,  when  properly  configured,  prevents  access  by  IOC 
command  instructions  and  chain  programs  to  non-existent  and  dedicated  memory  locations. 
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Wilhin  the  EP  driver  module,  the  VME  RAM  board  appears  as  a  one  — dimensional  array 
of  C  language  unsigned  short  elements.  The  driver  accesses  the  VME  RAM  board  by  using 
the  AN/UYK-44(V)  absolute  address  as  the  array  index.  The  driver  accesses  the  array  in  the 
same  manner  that  other  Unix  drivers  access  hardware  control  and  status  registers.  The 
VMEbus  hardware  base  byte  address  of  the  VME  RAM  board  is  0x10000000.  Figure  9  illus¬ 
trates  the  various  levels  of  address  translation  from  the  AN /U  YK  -  44(  V')  1 6  -  bit  relative  word 
address  to  the  VMEbus  32 -bit  hardware  byte  address. 


Figure  9.  AN/UYK— 44(V)  to  VMEbus  address  translation 


3.4  CHANNEL  CONTROL  REGISTERS 

The  IOC  multiplexer  driver  module  contains  the  kernel  memory  dedicated  to  the  channel 
control  registers.  There  is  one  set  of  1 6  channel  control  registers  for  each  channel.  The  channel 
control  registers  were  not  located  in  the  EP  driver  module  because  it  has  no  knowledge  of  the 
number  of  channels  actually  configured.  The  channel  control  registers  were  not  placed  in  the 
lOA  modules  because  there  are  some  channel  command  and  chaining  instructions  that  affect 
all  channels,  or  all  channels  with  a  priority  lower  than  a  specified  channel. 

Channel  control  registers  0  contains  the  buffer  control  word  for  transfers  from  Unix  to  the 
AN/UYK— 44(V).  Transfers  in  this  direction  are  “input”  transfers  from  the  AN/UYK-44(V) 
viewpoint  and  “write”  transfers  from  the  Unix  viewpoint. 


Figure  10  shows  tne  format  of  the  buffer  control  word.  The  transfer  mode  field  indicates 
the  size  of  each  unit  of  transfer  between  an  AN/UYK— 44(V)  IOC  and  a  peripheral  device.  It 
determines  the  number  of  bits  transferred  by  each  cycle  of  the  hardware  interface  signals  of  the 
channel  being  emulated.  The  transfer  count  field  indicates  the  number  of  such  cycles  in  the 
block  transfer.  The  emulation  moves  data  between  memories,  rather  than  between  memorv 
and  a  physical  peripheral  device.  The  emulation  does  not  give  significance  to  the  transfer  mode 
field  contents  other  than  to  scale  the  transfer  count  field  contents  during  its  computation  of  the 
total  size  of  the  block  being  transferred. 
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TRANSFER  MODE 
01  FOR  BYTE 

10  FOR  16- BIT  WORD 

11  FOR  32 -BIT  WORD 


TRANSFER 

COUNT 

IF  BYTE  IP  0.  USE  4096 

TRANSFER  MODE 
0  FOR  EVEN  BYTE 
1  FOR  ODD  BYTE 


PAGE  REGISTER  GROUP 
0  FOR  SET  0 

1  FOR  SET  2  (CHANNELS 
0-7)  OR  SET  3  (CHANNELS 
8-15) 


Figure  10.  Buffer  control  word  format 


Channel  control  register  1  contains  the  buffer  address  pointer  for  the  transfer.  It  indicates 
the  16— bit  AN/UYK— 44(V)  relative  starting  address  where  the  data  obtained  from  Unix  is  to 
be  placed. 

Channel  control  registers  4  and  5  contain  the  buffer  control  word  and  buffer  address  point¬ 
er,  respectively,  for  data  transfers  from  the  AN/UYK-44(V)  to  Unix.  These  are  "output" 
transfers  from  the  AN/UYK— 44(V)  viewpoint,  and  “read”  transfers  from  the  Unix  viewpoint. 

Conceptually,  the  transfer  count  decrements  and  the  buffer  address  pointer  increments  as 
a  transfer  takes  place.  The  IOC  emulation,  however,  only  updates  their  values  at  the  beginning 
and  end  of  the  transfer,  or,  if  the  transfer  prematurely  terminates,  when  it  terminates.  This  is 
done  for  efficiency  so  that  the  EP  driver  module  does  not  need  to  report  each  individual  bvte. 
word,  or  double  -  weird  transfer  to  the  IOC  multiplexer  driver  module,  but  merely  the  re.sults  of 
the  entire  data  block  transfer. 
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Channel  control  registers  2  and  6  contain  the  chain  address  pointers  for  the  input  and  out¬ 
put  chains,  respectively.  A  chain  address  pointer  is  a  program  counter  for  a  chain  program.  It 
points  to  the  i6-bit  AN/UYK-44(V)  relative  address  of  the  next  chain  instruction  in  the 
chain  program. 

The  other  channel  control  registers  are  implemented,  but  are  not  assigned  a  specific  func¬ 
tion  by  the  IOC  multiplexer  driver  module. 


3.5  EMULATION  MESSAGES 

Each  chain  program  execution  is  emulated  by  circulating  an  independent  stream  message 
in  a  loop  between  the  lOA  module  and  either  the  EP  driver  or  the  IOC  multiplexer  driver  mod¬ 
ule.  The  EP  driver  module  creates  the  message  when  it  processes  a  command  block  interrupt 
from  the  AN/UYK-44(  V)  EP.  The  IOC  multiplexer  driver  module  destroys  the  message  when 
the  chain  executes  a  halt  or  clear  instruction  or  detects  a  fatal  error. 

Figure  1 1  shows  the  emulation  message  format.  Most  emulation  messages  have  only  an 
M_PROTO  block.  Forced  external  function  messages  use  an  M_PCPROTO  block  instead  of  an 
M_PROTO  block  for  higher  priority  within  stream  queues.  Messages  transporting  input,  output, 
or  external  function  application  data  append  one,  or  more,  M_DATA  blocks  to  the  M_PROTO  or 
M_PCPROTO  block.  M_DATA  blocks  are  variable  in  length. 

The  format  of  the  M_PROTO  or  M_PCPROTO  block  remains  the  same  throughout  the  life  of 
the  chain  program  execution.  Nearly  all  messages  that  the  lOA  module  receives  from  the  IOC 
multiplexer  driver  module  are  simply  modified  and  sent  back  downstream.  The  common  for¬ 
mat  allows  use  of  the  same  memory  allocation  for  both  the  received  and  the  sent  message. 
Even  if  a  few  bytes  of  memory  are  sometimes  never  used,  this  is  more  efficient  than  deallocat¬ 
ing  memory  from  the  received  message,  and  then  allocating  memory  for  a  new  message.  The 
common  message  format  also  avoids  the  need  to  copy  fields  that  are  common  to  both  messages 
from  the  received  message  to  the  sent  message. 

The  message  function  field  indicates  the  operation  performed  by  the  message  as  it 
passes  through  the  various  stream  modules.  Each  time  the  message  arrives  at  the  lOA  module, 
it  is  assigned  the  next  function  to  perform.  As  the  message  circulates  from  the  lOA  module 
downstream  and  then  back  upstream  to  the  lOA  module,  the  modules  along  the  way  perform 
their  portion  of  the  function  execution.  The  only  case  when  the  message  function  field  is  not 
set  by  the  lOA  module  is  when  a  new  message  is  created. 

The  message  ack  field  indicates  whether  the  message  should  continue  to  circulate  or  be 
discarded  after  its  function  has  been  executed.  This  field  enables  the  module  completing  the 
function  execution  to  di.scard  immediately  those  messages  no  longer  needed,  rather  than  send- 
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function 


ack 


Figure  1 1.  Emulation  stream  message  format 


ing  them  back  upstream  to  the  lOA  module,  only  to  have  them  discarded  there.  The  message 
ack  field  has  a  value  of  either  REPLY  or  DISCARD.  In  general,  chain  program  emulations  set 
the  field  to  REPLY,  and  command  instruction  emulations  set  the  field  to  DISCARD. 

The  message  device  field  indicates  the  Unix  minor  device  number  of  the  AN/ 
UYK-44(V)  IOC  channel  file.  The  IOC  multiplexer  driver  module  sets  the  message  device 
field  as  the  message  passes  downstream  based  on  the  queue  from  which  it  obtained  the  mes¬ 
sage.  The  IOC  multiplexer  driver  module  reads  the  device  field  as  the  message  passes  up¬ 
stream  to  determine  the  queue  to  which  the  message  should  be  returned. 

The  message  chain  field  indicates  whether  the  message  is  associated  with  an  input  chain 
or  an  output  chain.  It  has  a  value  of  either  INPUT  or  OUTPUT. 

The  message  address,  data,  and  control  fields  provide  the  operands  of  the  operation 
specified  by  the  message  function  field.  Although  given  the  titles  “address",  “data",  and 
“control",  the  actual  use  of  these  fields  is  less  restrictive  than  their  titles  may  imply.  Figure  12 
and  Figure  13  summarize  the  field  assignments. 


The  message  status  field  reports  the  memory  access  faults  detected  by  the  EP  driver 
module.  These  faults  include  memory  protection  faults,  based  on  the  contents  of  the  respective 


function  address  data  control 


READ_REG 
read  control  register 

not  used 

register  contents 

register  number 

WRITE_REG 
write  control  register 

not  used 

write  data 
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REG_TO_MEM 
copy  control  register 
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memory  address 

register  contents 
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MEM_TO_REG 
copy  memory 
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WRITE_STAT 
write  status  register 
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write  data 

write  mask 

STAT_TO_MEM 
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to  memory 

memory  address 

status  register 
contents 
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Figure  12.  STREAMS  emulation  message  field  assignments 


second  command 
cell  word 

not  used 

first  command 
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y  field  address 
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first  instruction 
word  contentss 

instruction  address 
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instruction  address 

instruction  contents 
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IO_CELL 
lO  command  cell 

READ_INST 
read  next  instruction 

READ_INST_Y 
read  instruction  y  field 

JUMP_INST 
jump  and  read  next 
instruction 

JUMP_STAT 
jump  if  status  bit  set 
and  read  next  instruction 
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INTERRUPT 
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Figure  13.  STREAMS  emulation  message  field  assignments  (cont’d) 
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page  register  memory  protection  bits,  and  memory  range  faults,  caused  by  attempts  to  access 
non-supported  AN/UYK-44(V)  memory  addresses. 

The  message  limit  field  indicates  the  number  of  message  circulations  remaining  before 
the  message  is  automatically  discarded.  This  message  circulation  count  is  a  debugging  feature 
that  can  be  disabled  by  setting  the  limit  field  to  zero. 


3.6  CHAIN  PROGRAM  EMULATION  EXAMPLE 

Emulating  a  chain  program  execution  by  using  a  circulating  stream  message  can  be  illus¬ 
trated  with  a  specific  example.  Consider  an  output  chain  program  that  performs  an  output  data 
block  transfer  of  BUFSZ  16-bit  words,  starting  at  AN/UYK-44(  V)  memory  address  BUF,  that 
interrupts  the  AN/UYK— 44(V)  when  the  transfer  is  completed,  and  finally  that  halts.  The 
chain  program,  in  AN/UYK— 44(V)  assembly  language,  is  a  follows: 


CHAIN 

10 

I  PR 

HLT 

1 , BCWBAP 

.  initiate  output  transfer 
.  interrupt  EP 
.  halt  chain 

BCWBAP 

+08000X+BUFSZ 

+BUF 

.  for  output  buffer 
.  for  output  buffer 

control 

address 

word 

pointer 

BUF 

EVEN 

RES 

BUFSZ 

.  EP  memory  buffer 

The  AN/UYK-44(  V)  EP  hardware  interrupts  the  EP  driver  module  to  inform  it  of  the  ini¬ 
tiate  output  chain  command  awaiting  execution.  The  EP  driver  module  creates  a  new  stream 
message  to  accept  the  information  provided  with  the  AN/UYK— 44(V)  EP  interrupt.  TTie  AN/ 
UYK-44(  V)  EP  provides  the  IOC  number  and  the  location  of  the  command  cell.  The  EP  driv¬ 
er  module  uses  the  IOC  number  obtained  directly  and  the  channel  number  obtained  by  access¬ 
ing  the  command  cell  to  compute  the  minor  device  number.  It  loads  the  minor  device  number 
into  the  message  device  field.  The  minor  device  number  established  by  the  EP  driver  module 
remains  with  the  message  throughout  the  life  of  the  chain  program  execution.  The  message 
device  field  enables  the  IOC  multiplexer  driver  module  to  direct  the  message  into  the  proper 
lOA  module  when  the  message  passes  upstream.  The  EP  driver  module  also  loads  the  contents 
of  the  command  cell  into  the  appropriate  message  fields  so  that  they  can  be  decoded  and  pro¬ 
cessed  by  the  upstream  lOA  module.  Finally,  the  EP  driver  module  sets  the  function  field  to 
the  constant  lOCELL  to  identify  the  message  contents  as  those  for  a  command  cell  message. 
The  fields  of  the  newly  created  message  are  as  follows: 

function  lOCELL 
ack  REPLY 

device  computed  by  EP  driver  module 
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chain  not  used 

address  second  16— bit  word  of  command  cell 
data  not  used 

control  first  16-bit  word  of  command  cell 
status  not  used 
limit  0 

When  the  lOCELL  message  reaches  the  lOA  module,  the  lOA  module  decodes  the  first 
16— bit  word  of  the  command  cell  carried  by  the  message  to  determine  the  AN/UYK-44(V) 
command  instruction  desired.  In  this  case,  the  AN/UYK-44(V)  command  is  an  initiate  output 
chain  instruction.  The  lOA  module  sets  the  ack  field  to  REPLY  and  the  chain  field  to  OUT¬ 
PUT.  The  second  16— bit  wo'd  of  the  command  cell  gives  the  address  where  the  output  chain 
program  is  to  begin  execution.  This  address  must  be  sent  to  the  output  chain  address  pointer 
channel  control  register,  which  acts  as  the  program  counter  for  the  chain  program.  The  lOA 
module  sets  the  function  field  to  WRITE_REG  to  request  the  transfer.  The  fields  of  the  mes¬ 
sage  sent  downstream  by  the  lOA  module  are  now  as  follows; 

function  WRITE_REG 
ack  REPLY 

device  no  change 
chain  OUTPUT 
address  not  used 

data  new  contents  for  output  chain  address  pointer 
control  OUT_CAP  (channel  control  register  6) 
status  not  used 
limit  0 

The  channel  control  registers  are  implemented  within  the  IOC  multiplexer  driver  module. 
When  the  WRITE_REG  message  reaches  the  IOC  multiplexer  driver  module,  the  IOC  multi¬ 
plexer  driver  module  recognizes  that  the  function  involves  only  one  of  its  own  registers.  It  ex¬ 
tracts  the  register  number,  in  this  case  OUT_CAP,  and  the  data  to  be  loaded  into  that  register 
from  the  appropriate  message  fields.  Since  the  message  ack  field  is  set  to  REPLY,  and  since  no 
further  processing  is  necessary  downstream,  the  IOC  multiplexer  driver  module  returns  the 
message  upstream  to  the  lOA  module. 

Upon  receiving  the  returned  WRITE  REG  message,  the  lOA  module  is  now  ready  to  re¬ 
quest  access  of  the  first  instruction  of  the  chain  program.  This  is  accomplished  by  setting  the 
function  field  to  READ_INST.  The  lOA  module  does  not  need  to  modify  any  of  the  other 
fields.  The  fields  of  the  message  are  now  as  follows: 

function  READ_INST 
ack  still  set  to  REPLY 

device  no  change 

chain  still  set  to  OUTPUT 

address  not  used 
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data  not  used 

control  not  used 

status  not  used 

limit  0 

When  the  READ_INST  message  arrives  at  the  IOC  multiplexer  driver  module,  the  IOC  multi¬ 
plexer  driver  module  sets  the  message  address  field  to  the  contents  of  its  output  chain  ad¬ 
dress  pointer  channel  control  register.  It  then  increments  the  contents  of  the  chain  address 
pointer  channel  control  register  in  anticipation  of  the  next  chain  instruction  request.  Finally,  it 
sends  the  message  downstream  to  the  EP  driver  module.  The  fields  of  the  message  are  as  fol¬ 
lows: 


function 

READ_INST 

ack 

Still  set  to  REPLY 

device 

no  change 

chain 

still  set  to  OUTPUT 

address 

output  chain  address  pointer  from  IOC  multiplexer  driver  module 

data 

not  used 

control 

not  used 

status 

not  used 

limit 

0 

The  EP  driver  module  maps  the  16-bit  address  specified  by  the  message  address  field  into  a 
location  within  the  AN/UYK-44(V)  memory.  The  ANAJYK-44(V)  instruction  set  architec¬ 
ture  defines  all  chain  program  instructions  as  executing  through  IOC  page  register  group  0. 
The  mapping  through  the  page  register  by  the  EP  driver  module  also  checks  for  execute  protect 
fault  and  for  the  page  register  pointing  to  non-existent  locations  in  ANAJYK-44(V) 
memory.  The  EP  driver  module  stores  the  results  of  these  tests  in  the  message  status  field. 
Assuming  no  faults,  the  EP  driver  module  loads  the  contents  of  the  memory  location  into  the 
message  data  field  and  then  returns  the  message  to  the  IOC  multiplexer  driver  module. 


function 

READ_INST 

ack 

still  set  to  REPLY 

device 

no  change 

chain 

still  set  to  OUTPUT 

address 

output  chain  address  pointer  from  IOC  multiplexer  driver  module 

data 

first  chain  instruction  word  read  by  EP  driver  module 

control 

not  used 

status 

EP_NO_FAULTS 

limit 

0 

The  IOC  multiplexer  driver  module,  in  turn,  returns  the  message  to  the  lOA  module  selected 
by  the  message  device  field  without  further  processing. 

The  lOA  module  now  processes  the  first  instruction  of  the  output  chain  program.  It  de¬ 
codes  the  instruction  opcode  and  discovers  that  it  defines  an  initiate  output  transfer  instruc- 


tion.  Since  an  initiate  output  transfer  instruction  isa  two— word  instruction,  and  since  so  far  the 
lOA  module  has  only  the  first  16-bit  word,  its  next  message  circulation  needs  to  obtain  the 
second  16-bit  word.  The  lOA  module  moves  the  first  word  of  the  chain  instruction  from  the 
message  data  field  to  the  message  control  field  for  safe  keeping.  This  word  transfer  frees 
the  message  data  field  to  capture  the  second  word  of  the  chain  instruction.  The  lOA  module 
also  changes  the  message  function  field  to  READ_INST_y.  When  the  message  eventually 
returns  to  the  lOA  module,  the  new  message  function  field  informs  the  lOA  module  that 
the  message  now  contains  both  the  first  and  the  second  words  of  the  two— word  chain  instruc¬ 
tion.  When  the  recirculated  message  finally  returns  to  the  lOA  module,  its  fields  contain  the 
following: 

function  READ_INST_Y 
ack  still  set  to  REPLY 

device  no  change 

chain  still  set  to  OUTPUT 

address  output  chain  address  pointer  from  IOC  multiplexer  driver  module 
data  second  chain  instruction  word  read  by  EP  driver  module 
control  first  chain  instruction  word  saved  by  lOA  module 
status  EP_NO_FAULTS  for  second  chain  instruction  word 
limit  0 

The  lOA  module  again  decodes  the  opcode  and  discovers  that  the  chain  instruction  is  an  initi¬ 
ate  output  transfer  instruction.  Since  it  has  the  entire  chain  instruction  this  time,  it  uses  the  next 
message  circulation  to  execute  the  instruction. 

Before  describing  the  message  that  executes  the  instruction,  it  is  helpful  to  review  the  oper¬ 
ation  performed  by  the  initiate  output  transfer  instruction  in  the  AN/UYK-44(V)  IOC.  The 
second  16— bit  word  of  the  initiate  output  transfer  instruction  points  to  two  consecutive  1 6— bit 
words  in  memory.  These  two  words  contain  the  values  to  be  loaded  by  the  instruction  into  the 
output  buffer  control  word  and  the  output  buffer  address  pointer  channel  control  registers,  re¬ 
spectively.  In  the  example,  they  are  located  at  address  BCWBAP.  After  loading  them,  the  in¬ 
struction  starts  the  block  data  transfer  they  define.  The  buffer  control  word  gives  the  size  of  the 
transfer  and  the  buffer  address  pointer  gives  the  AN/UYK-44(  V)  memory  starting  address  of 
the  data  block  transferred. 

The  execution  portion  of  the  initiate  output  transfer  instruction  emulation  requires  two 
message  circulations. 

For  the  first  message  circulation,  the  lOA  module  sets  the  message  function  field  to 
READ_START.  Remember  that  from  the  stream  viewpoint,  the  stream  reads  AN/UYK-44(  V) 
output  data.  As  stated,  the  second  1 6— bit  word  of  the  initiate  output  transfer  instruction  points 
to  two  consecutive  16— bit  words  containing  the  values  to  be  loaded  into  the  output  buffer  con¬ 
trol  word  and  output  buffer  address  pointer  channel  control  registers,  respectively.  The  ad- 


27 


dress  of  these  words  already  exists  in  the  message  data  field  from  the  previous  message  circu¬ 
lation.  The  START_READ  message  passes  downstream  through  the  IOC  multiplexer  driver 
module  to  the  EP  driver  module.  At  the  EP  driver  module,  the  contents  of  the  two  words  at  the 
address  specified  by  the  message  data  field  are  accessed  and  inserted  into  the  message.  As  the 
message  passes  upstream  and  back  through  the  IOC  multiplexer  driver  module,  the  IOC  mul¬ 
tiplexer  driver  module  copies  the  initial  values  for  the  output  buffer  control  word  and  the  out¬ 
put  buffer  address  pointer  from  the  message  into  the  respective  channel  control  registers  with¬ 
in  the  IOC  multiplexer  driver  module.  The  IOC  multiplexer  driver  module  also  sets  a  bit  in  the 
channel  status  register  to  indicate  that  the  channel  is  active.  Finally,  the  message  returns  to  the 
lOA  module  with  the  following  contents: 


function 

READ_START 

ack 

.Still  set  to  REPLY 

device 

no  change 

chain 

still  set  to  OUTPUT 

address 

value  for  buffer  address  pointer  read  by  EP  driver  module 

data 

BCWBAP  pointer  from  lOA  module 

control 

value  for  buffer  control  word  read  by  EP  driver  module 

status 

EP_NO_FAULT  on  both  EP  driver  module  reads 

limit 

0 

For  the  second  message  circulation,  the  lOA  module  sets  the  message  function  field  to 
READ_BUF.  When  the  message  reaches  the  EP  driver  module,  the  EP  driver  module  allocates 
a  stream  M_DATA  block  and  loads  it  with  data  in  accordance  with  the  specification  provided  by 
the  output  buffer  control  word  and  the  output  buffer  address  pointer  contained  in  the  message 
fields.  The  EP  driver  module  appends  the  loaded  M_DATA  block  to  the  M_PROTO  block  of  the 
message.  The  EP  driver  module  also  updates  the  contents  of  the  message  fields  containing  the 
output  buffer  control  word  and  the  output  buffer  address  pointer  to  reflect  the  extent  that  the 
transfer  was  completed.  Finally,  it  sends  the  message  back  upstream.  At  the  IOC  multiplexer 
driver  module,  the  contents  of  the  output  buffer  control  word  and  the  output  buffer  address 
pointer  channel  control  registers  are  updated  using  the  values  provided  by  the  message  fields, 
and  the  channel  status  register  output  channel  active  flag  is  cleared.  The  message  fields  are  as 
follows: 


function 

READ_BUF 

ack 

Still  set  to  REPLY 

device 

no  change 

chain 

still  set  to  OUTPUT 

address 

new  value  of  buffer  address  pointer  from  EP  driver  module 

data 

not  used 

control 

new  value  of  buffer  control  word  from  EP  driver  module 

status 

EP_NO  FAULTS  on  any  EP  driver  module  reads 

limit 

0 
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When  the  lOA  module  receives  the  returning  READ_BUF  message,  it  splits  the  message 
into  two  messages  by  detaching  the  M_DATA  block  from  the  M_PROTO  block.  The  lOA  module 
changes  the  function  field  of  the  message  formed  from  the  M_PROTO  block  to  READ_INST 
and  then  circulates  it  to  obtain  the  next  chain  instruction.  It  sends  the  message  formed  from  the 
M_DATA  block  upstream  to  the  stream  head  where  the  contents  become  the  data  accepted  by 
the  Unbc  read  system  call. 

The  next  chain  instruction  in  the  example,  IPR,  interrupts  the  AN/UYK-44(V)  EP  pro¬ 
cessor.  Its  emulation  requires  two  message  circulations.  The  first  message,  with  the  function 
field  set  to  READ_INS'E  reads  the  IPR  instruction  itself.  The  second  message,  with  the  func¬ 
tion  field  set  to  INTERRUPT,  directs  the  EP  driver  module  to  interrupt  the  AN/UYK-44(V) 
EP.  The  EP  driver  module  triggers  the  interrupt  by  writing  into  a  VMEbus  mailbox  recognized 
by  the  AN/UYK-44(V)  EP  hardware.  An  additional  message,  with  the  function  field  set  to 
READ_INST_Y,  is  not  necessary,  in  this  case,  because  the  IPR  instruction  is  a  one -word  in¬ 
struction. 

Each  channel  has  the  ability  to  enable  or  disable  its  input  chain  interrupt,  output  chain  in¬ 
terrupt,  and  external  interrupt  by  executing  a  command  or  chain  instruction.  If  channel  inter¬ 
rupts  are  enabled,  the  INTERRUPT  message  from  the  lOA  module  passes  without  delay 
through  the  IOC  multiplexer  driver  module  to  the  EP  driver  module.  If  channel  interrupts  are 
disabled,  however,  the  INTERRUPT  message  is  not  sent  to  the  EP  driver  module,  but  rather 
sets  a  pending  interrupt  flag  in  the  IOC  multiplexer  driver  module.  When  a  message  to  enable 
interrupts  eventually  appears  at  the  IOC  multiplexer  driver  module,  the  pending  interrupt 
flags  are  examined.  If  any  pending  interrupt  flags  indicate  pending  interrupts,  respective  IN¬ 
TERRUPT  messages  are  generated  and  sent  downstream  to  the  EP  driver  module. 

The  final  chain  instruction  in  the  example,  HLT  halts  the  chain  program.  As  with  all  chain 
instruction  emulations,  its  first  message  circulation  is  with  the  function  field  set  to 
READ_INST  to  obtain  the  identity  of  the  instruction  itself.  Upon  identifying  the  instruction  as  a 
HLT  instruction,  the  lOA  module  sets  the  function  field  to  CHAN_CONTROL  and  the  ack 
field  to  DISCARD.  When  the  message  reaches  the  IOC  multiplexer  driver  module,  it  sets  a  flag 
to  indicate  that  the  chain  is  halted.  Since  the  message  ack  field  is  set  to  DISCARD,  the  message 
is  not  sent  back  to  the  lOA  module.  Terminating  message  circulation  terminates  the  chain  pro¬ 
gram. 


3.7  AN/UYK-44(V)  MEMORY  ACCESS  ERRORS 

There  are  four  possible  AN/UYK— 44(V)  memory  access  errors.  They  are  read  protect 
fault,  write  protect  fault,  execute  protect  fault,  and  address  range  fault.  The  EP  driver  module 
detects  these  errors  when  it  processes  messages  requiring  access  to  the  AN/UYK-44(V) 
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memory.  The  EP  driver  module  sends  a  memory  protect  interrupt  to  the  AN  'UYK-44(V)  EP 
when  it  detects  a  read,  write,  or  execute  protect  fault.  It  sends  a  memory  resume  interrupt  to 
the  AN/UYK— 44(V)  EP  when  it  detects  a  memory  range  fault. 

When  the  EP  driver  module  detects  an  AN/UYK— 44(V)  memory  access  error  during  mes¬ 
sage  processing,  it  sets  the  message  status  field  to  indicate  the  presence  and  nature  of  the 
error.  The  message  propagates  upstream  to  the  lOA  module.  When  the  lOA  module  sees  a 
memory  access  error  reported  in  the  message  status  field,  it  converts  the  the  stream  message 
type  from  M_PROTO  to  M_ERROR.  The  first  byte  of  the  M_ERROR  message  is  set  to  the  error 
code  EIO  defined  by  the  Unix  read  and  write  system  calls.  Finally,  the  lOA  module  sends 
the  message  upstream  to  the  stream  head.  Since  the  message  is  not  sent  back  downstream,  it  no 
longer  circulates,  which  effectively  terminates  the  chain. 

3.8  FLOW  CONTROL 

The  Unix  reed  and  write  system  calls  obtain  the  Unix  application  buffer  size  from  a  call 
parameter.  The  AN/UYK- 44(V)  IOC  initiate  transfer  chain  instructions  obtain  the  AN/ 
UYK-44(V)  application  buffer  size  from  the  buffer  control  word  addressed  by  the  instruc¬ 
tion.  There  is  no  requirement  that  the  application  buffer  sizes  match.  The  STREAMS  system 
implements  read  and  write  queues.  Data  can  be  enqueued  in  blocks  of  one  size  and  dequeued 
in  blocks  of  another  size. 

As  shown  by  a  previous  example,  AN/UYK-44(V)  output  data  made  available  for  Unbc 
reading  is  simply  attached  to  the  READ_BUF  message  by  the  EP  driver  module  and  is  subse¬ 
quently  removed  and  sent  to  the  stream  head  by  the  lOA  module.  The  stream  head  automati¬ 
cally  handles  any  mismatch  between  the  size  of  the  message  data  block  received  from  down¬ 
stream  and  the  size  of  the  application  buffer  specified  within  the  Unix  read  system  call. 

Unix  write  data  made  available  for  AN/UYK— 44(V)  input  is  attached  to  a  WRITE_BUF 
message  by  the  lOA  module  and  is  subsequently  removed  and  stored  into  AN/UYK-44(V) 
memory  by  the  EP  driver  module.  Several  factors,  all  related  to  flow  control,  make  attaching 
write  data  blocks  to  the  WRITE_BUF  message  considerably  more  complex,  in  comparison  to 
attaching  read  data  blocks  to  the  READ_BUF  message. 

The  first  problem  concerns  queuing  the  Unix  write  data.  The  input  chain  does  not  accept 
data  until  it  executes  an  initiate  transfer  chain  instruction.  If  the  Unbc  write  data  arrives  at  the 
lOA  module  before  the  execution  of  this  instruction,  the  Unix  write  data  must  be  held  in  a 
queue. 

The  lOA  module  write  queue  receives  both  the  Unbc  data  messages  from  the  stream  head 
and  the  circulating  WRITE_BUF  messages  from  the  lOA  module  read  service  routine.  The 
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Unix  data  messages  have  stream  message  type  M_DATA.  The  circulating  WRITE_BUF  mes¬ 
sages  are  temporarily  given  the  stream  message  type  M_PCPROTO.  The  high-priority 
M_PCPROTO  message  type  is  used,  rather  than  the  normal -priority  M_PROTO  message  type, 
to  insure  that  the  circulating  message  will  get  into  the  lOA  module  write  queue  when  the  queue 
is  in  the  flow  control  blocking  state.  This  is  important  to  avoid  deadlock.  Otherwise,  the  queue 
may  be  filled  with  Unix  data  messages  before  the  WRITE_BUF  message  arrives,  preventing  the 
WRITE_BUF  message  from  entering  for  lack  of  space.  The  M_PCPROTO  message  type  over¬ 
rides  the  flow  control  high  water  mark.  It  also  places  the  WRITE_BUF  me.ssage  at  the  front  of 
the  queue.  This  makes  searching  for  it  faster.  The  WRITE_BUF  message  type  is  set  back  to 
M_PROTO  when  it  leaves  the  queue. 

The  data  messages  within  the  lOA  module  write  queue  are  in  first-in-first-out  order. 
The  WRITE_BUF  message,  if  present,  is  at  the  front  of  the  queue.  The  stream  getq  routine 
returns  whatever  message  is  at  the  front  of  the  queue.  It  could  return  either  a  WRITE_BUF 
mes.sage,  if  a  WRITE_BUF  message  is  in  the  queue,  or  a  data  message,  if  no  WRITE_BUF  mes¬ 
sage  is  in  the  queue.  But  the  only  mes.sages  that  should  be  released  downstream  are 
WRITE_BUF  messages  with  attached  data  blocks.  Data  messages  should  be  held  in  the  queue 
until  an  appropriate  WRITE_BUF  message  becomes  available  to  which  they  can  be  attached. 
The  lOA  module  write  queue,  therefore,  cannot  be  treated  simply  as  a  first-in— first— out 
queue  using  the  stream  getq  routine. 

The  problem  does  not  exist  when  going  in  the  other  direction  for  Unix  read  data.  Unix  read 
data  is  always  available  in  the  ANAJYK— 44(V)  memory.  It  is  accessed  from  the  AN/ 
UYK-44(V)  memory  when  the  initiate  transfer  chain  instruction  is  executed.  Any  necessary 
queuing  of  the  Unix  read  data,  while  awaiting  the  Unix  read  system  call  to  accept  it,  takes 
place  at  the  stream  head. 

The  second  problem  concerns  the  holding  of  the  WRITE_BUF  and  data  messages  in  the 
write  queue.  A  Unix  write  data  transfer  to  the  ANAJYK— 44(V)  memory  cannot  take  place 
until  there  hhoth  sufficient  Unbt  write  data  and  a  ANAJYK-44(V)  IOC  initiate  transfer  chain 
instruction  to  accept  the  write  data.  As  already  shown,  if  its  write  data  arrives  before  the  in¬ 
struction,  the  write  data  is  queued  until  the  instruction  arrives.  Similarly,  if  the  instruction  ar¬ 
rives  before  there  is  sufficient  write  data,  the  instruction  is  queued  until  all  of  its  required  write 
data  arrives.  TTie  lOA  module  write  service  routine  must  deal  with  both  possibilities. 

When  a  data  message  arrives  from  the  stream  head,  the  lOA  module  write  service  routine 
checks  the  front  of  the  write  queue  to  see  if  there  is  a  WRITE_BUF  message  in  the  queue.  If 
there  is,  the  lOA  module  write  service  routine  sequentially  adds  the  sizes  of  any  data  messages 
in  the  write  queue  to  see  if  there  is  now  sufficient  write  data  available  to  satisfy  the  WRITE_BUF 
message  buffer  size  requirements.  If  this  is  also  the  case,  the  lOA  module  write  service  routine 
appends  the  appropriate  write  data  blocks  to  the  WRITE_BUF  message  and  sends  it  down- 
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stream.  If  any  of  these  conditions  are  not  met,  messages  are  neither  removed  from  the  write 
queue  nor  sent  downstream. 

Similarly,  when  a  WRITE_BUF  message  arrives  from  the  lOA  module  read  service  routine, 
the  lOA  module  write  service  routine  examines  the  data  messages  in  the  write  queue  to  see  if 
there  is  already  sufficient  write  data  available  to  satisfy  the  WRITE_BUF  message  buffer  size 
requirements.  If  there  is.  the  lOA  module  write  service  routine  appends  the  appropriate  write 
data  blocks  to  the  WRITE_BUF  message  and  sends  it  downstream.  If  not.  messages  are  neither 
removed  from  the  write  queue  nor  sent  downstream. 

The  third  prc^blem  concerns  the  possible  mismatch  between  the  size  of  the  buffer  specified 
through  the  Unix  write  system  call  and  that  specified  by  the  buffer  control  word  addressed  by 
the  initiate  transfer  chain  instruction.  The  stream  head  delivers  to  the  lOA  module  M_DATA 
messages  that  are  the  same  size  as  the  buffer  size  parameter  pas.sed  by  the  application  to  the 
Unix  write  system  call  that  created  them.  The  lUA  module  write  service  routine  concate¬ 
nates  and  splits  M_DATA  messages,  as  required,  to  fulfill  the  needs  requested  by  the 
WRITE_BUF  message. 

3.9  CHANNEL  CLEAR  CHAIN  TERMINATION 

The  AN/UYK-44(V)  IOC  instruction  set  includes  command  and  chain  instructions  to 
clear  all  the  channels,  a  particular  channel,  the  input  portion  of  a  particular  channel,  and  the 
output  portion  of  a  particular  channel.  Since  a  channel  clear  chain  instruction  executing  on  one 
channel  can  clear  another  channel,  channel  clearing  is  implemented  in  the  IOC  multiplexer 
driver  module  where  all  channels  are  acces.sible. 

The  IOC  multiplexer  driver  module  has  four  flags  for  each  channel.  These  flags  are  named 
IN_CH_ACTIVE,  IN_CH_ABORT  OUT_CH_ACTIVE,  and  OUT_CH_ABORT. 

The  IN_CH_ACTIVE  flag  indicates  whether  or  not  a  channel  input  chain  is  currently  ex¬ 
ecuting  on  the  channel.  The  OUT_CH_ACTIVE  flag  indicates  whether  or  not  a  channel  output 
chain  is  currently  executing  on  the  channel.  They  are  set  by  the  respective  initiate  chain  instruc¬ 
tions  and  are  cleared  by  halt  chain  instructions  in  the  respective  chains. 

The  IN_CH_ABORT  flag  indicates  whether  or  not  the  channel  has  received  a  request  from  a 
channel  clear  instruction  to  terminate  the  currently  executing  input  chain.  The 
OUT_CH_ABORT  flag  indicates  whether  or  not  the  channel  has  received  a  request  from  a  chan¬ 
nel  clear  instruction  to  terminate  the  currently  executing  output  chain.  They  are  set  by  clear 
channel  instructions  directed  to  the  channel,  regardless  of  the  channel  or  command  source  of 
the  instruction. 

Chain  program  execution  continues  as  long  as  the  stream  message  emulating  its  execution 
continues  to  circulate.  Destroying  the  circulating  message  terminates  the  chain.  Each  time  a 
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downstream  emulation  message  enters  the  IOC  multiplexer  driver  module,  the  IOC  multi¬ 
plexer  driver  module  examines  either  the  two  flags  associated  with  input  chains  or  the  two  asso¬ 
ciated  with  output  chains.  The  message  chain  field  determines  the  pair  of  flags  examined. 

If  the  flags  simultaneously  indicate  that  there  is  a  chain  currently  executing  on  the  channel 
and  that  a  request  to  clear  the  channel  has  been  received,  the  IOC  multiplexer  driver  module 
destroys  the  message  to  terminate  the  chain.  It  clears  the  two  flags  to  indicate  that  the  channel 
no  longer  has  an  active  chain  and  that  the  channel  clear  has  been  completed. 

If,  on  the  other  hand,  the  flags  simultaneously  indicate  that  there  is  not  a  chain  currently 
executing  on  the  channel  and  that  a  request  to  clear  the  channel  has  been  received,  the  IOC 
multiplexer  driver  module  does  not  destroy  the  message  since  the  message  is  initiating  a  new 
chain  or  performing  a  command.  It  sets  the  active  chain  flag  if  the  message  is  initiating  a  new 
chain.  It  clears  the  abort  flag  to  indicate  that  the  channel  clear  has  been  completed,  or  more 
precisely,  was  never  necessary  in  the  first  place  because  the  channel  was  already  cleared. 

Finally,  if  the  abort  flag  indicates  that  a  request  to  clear  the  channel  has  not  been  received, 
then  channel  clearing  is  not  required. 


3.10  EXTERNAL  INTERRUPT 

The  Unix  application  generates  an  external  interrupt  for  the  AN/UYK-44{  V)  by  using  the 
Unix  ioct  1  system  call.  The  external  interrupt  word,  as.sociated  with  the  external  interrupt,  is 
passed  as  the  parameter  to  the  ioct  1  system  call.  The  stream  head  converts  the  ioct  1  system 
call  into  an  M_lOCTL  message  with  the  external  interrupt  word  appended  in  a  separate 
M_DATA  block. 

The  lOA  module  processes  the  M_IOCTL  message.  It  first  checks  the  size  of  the  external 
interrupt  word.  If  the  M_DATA  block,  containing  the  external  interrupt  word,  is  not  one.  two.  or 
four  bytes  long,  the  lOA  module  assumes  it  to  be  bad,  deletes  the  M_DATA  block,  converts  the 
M_IOCTL  block  into  an  M_IOCNAK  block,  and  returns  the  M_IOCNAK  block  as  a  message  to 
the  stream  head.  Upon  receiving  the  M_IOCNAK  message,  the  stream  head  returns  an  error  to 
the  application. 

On  the  other  hand,  if  the  size  of  the  M_DATA  block  containing  the  external  interrupt  word  is 
correct,  the  lOA  module  generates  two  new  M_PROTO  message  blocks.  The  first  has 
WRITE_EI_WORD  in  its  function  field.  It  contains  the  value  and  size  of  the  external  inter¬ 
rupt  word.  The  .second  M_PROTO  message  block  has  INTERRUPT  in  its  function  field.  It  is 
similar  to  the  message  used  for  the  IPR  interrupt  described  previously.  The  second  message 
block  is  appended  to  the  first,  so  that  the  two  message  blocks  can  be  sent  downstream  as  a 
single  message.  The  lOA  module  sets  the  block  ack  fields  to  DISCARD,  since  they  arc  not  part 
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of  a  chain  that  must  circulate  a  message.  The  lOA  module  does  not  need  to  specif)  the  bk>ck 
device  field,  because  they  are  automatically  loaded  by  the  IOC  multiplexer  driver  module 
downstream.  Finally,  the  lOA  module  converts  the  M_IOCTL  message  into  an  M_IOCACK 
message  and  returns  it  to  the  stream  head. 

At  the  IOC  multiplexer  driver  module,  the  two  blocks  forming  the  message  are  processed 
separately.  The  INTERRUPT  block  is  processed  in  the  same  manner  as  other  interrupts.  If  in¬ 
terrupts  are  enabled,  the  block  is  sent  on  its  way  to  the  EP  driver  module.  If  interrupts  are  not 
enabled,  a  flag  is  set  to  indicate  that  the  interrupt  is  pending  and  the  block  is  discarded.  The 
WRITE_EI_W0RD  block  is  processed  in  the  same  manner.  If  the  flag  indicating  the  state  of  the 
EIE  line  is  enabled,  the  block  is  sent  on  its  way  to  the  EP  driver  module.  If  the  EIE  line  is  dis¬ 
abled,  the  value  of  the  external  interrupt  word  is  stored  in  the  IOC  multiplexer  driver  module, 
a  flag  indicating  a  pending  external  interrupt  word  transfer  is  set.  and  the  WRITE_EI_W0RD 
block  is  discarded.  If  both  blocks  are  being  sent  downstream  to  the  EP  driver  module,  the  IN¬ 
TERRUPT  block  is  appended  to  the  WRiTE_EI_WORD  block,  so  that  they  can  be  sent  as  a  single 
message. 
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4.0  INSTALLATION  AND  INVOCATION 


This  section  presents  code  used  to  install  and  invoke  the  STREAMS  emulation  of  the  AN/ 
UYK-44(  V)  IOC.  It  is  assumed  that  the  reader  is  familiar  with  Unix,  shell  commands,  and  the 
C  programming  language. 

4.1  CONFIGURATION  DAEMON 

The  purpose  of  the  configuration  daemon  program  is  to  establish  and  maintain  a  connec¬ 
tion  between  the  IOC  multiplexer  driver  module  and  the  EP  driver  module.  The  configuration 
daemon  program  is  called  epioc.  Its  source  code,  contained  in  the  file  epioc .  c,  is  shown 
below. 


#include  <fcntl.h> 

#include  <stropts.h> 

main(  ) 

{ 

int  fd_ep; 
int  fd_ioc; 

switch(fork( ) )  { 
case  0:  { 
break; 

} 

case  -1;  { 

perror ( "fork  failed"); 
exit ( 0 ) ; 

} 

default:  { 
exit ( 0 ) ; 

} 

} 

( void ) setpgrp ( ) ; 

if{(fd_ep  =  open('/dev/epO",  0_RDWR) )  <  0)  { 
perror ("open  of  /dev/epO  failed"); 
exit ( 0 ) ; 

} 

if((fd_ioc  =  open( "/dev/iocO",  o_RDWR) )  <  0)  { 
perror ("open  of  /dev/iocO  failed"); 
exit(0 ) ; 

} 
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if ( ioctl ( fd_ioc ,  1_P0P,  0)  <  0)  { 
perror ( "I_P0P  ioctl  failed"); 
exit(0 ) ; 

} 

if (ioctl (fd_ioc,  I_LINK,  fd_ep)  <  0)  { 
perror ( "I_LINK  ioctl  failed"); 
exit(O) ; 

} 

( void ) close ( f d_ep ) ; 

(void) pause ( ) ; 

} 

A  daemon  program,  by  definition,  is  a  program  that  executes  in  the  background  to  provide 
a  specific  service  as  needed.  In  the  case  of  epioc,  the  service  does  not  involve  actual  process¬ 
ing  once  the  link  between  the  IOC  multiplexer  driver  module  and  the  EP  driver  module  has 
been  established.  The  link  is  maintained  as  long  as  the  epioc  program  remains  as  a  non— ter¬ 
minated  process  in  the  Unbc  kernel  process  table.  The  epioc  program  uses  the  pause  system 
call  to  place  itself  permanently  into  the  sleeping  state  without  terminating. 

An  obvious  problem  of  using  the  shell  to  start  a  program  that  lasts  forever  is  regaining  con¬ 
trol  of  the  shell  after  starting  the  program.  One  popular  solution  appends  an  ampersand  sym¬ 
bol,  &,  at  the  end  of  the  shell  command  line.  The  first  few  lines  of  epioc .  c  show  an  alternative 
approach  that  avoids  the  need  for  the  &,  although  no  damage  is  done  if  one  is  inadvertently 
appended.  The  program  spawns  another  execution  of  itself  using  the  fork  system  call.  The 
parent  program,  which  sees  the  fork  system  call  return  a  positive  non -zero  process  identifi¬ 
er,  immediately  exits.  This  returns  control  back  to  the  shell.  Assuming  that  the  fork  system 
call  executes  successfully,  the  child  program,  which  sees  the  fork  system  call  return  0,  ex¬ 
ecutes  the  remainder  of  the  program  which  executes  forever. 

The  epioc  program  opens  both  the  IOC  multiplexer  driver  module  port  dedicated  to  the 
epioc  program  and  the  EP  driver  module  port  to  obtain  a  file  descriptor  for  each.  The  file 
descriptors  identify  the  modules  to  be  linked. 

AN/UYK— 44(V)  IOC  channel  emulations  need  an  lOA  module  between  the  IOC  multi¬ 
plexer  driver  module  port  and  the  stream  head.  Rather  than  having  the  applications  explicitly 
push  the  lOA  module  into  the  stream  every  time  they  open  an  IOC  multiplexer  driver  module 
port,  the  IOC  multiplexer  driver  module  automatically  performs  the  push  when  the  port  is 
opened.  The  epioc  program,  on  the  other  hand,  neither  needs  nor  desires  an  lOA  module. 
Unfortunately,  there  is  no  convenient  way  to  prevent  this  since  the  IOC  multiplexer  driver 
module  treats  all  ports,  including  the  port  dedicated  to  the  epioc  program,  identically.  The 
epioc  program,  therefore,  pops  the  lOA  module  from  the  stream  after  opening  its  dedicated 
IOC  multiplexer  driver  module  port. 


The  epioc  program  employs  the  ioctl  system  call  with  the  I_LINK  parameter  to  link 
the  EP  driver  module  to  the  IOC  multiplexer  driver  module.  Once  the  linking  has  been  com¬ 
pleted,  the  IOC  multiplexer  driver  module  no  longer  needs  the  EP  driver  module  file  descrip¬ 
tor.  The  EP  driver  module  port  could  be  left  open.  Closing  it,  however,  has  the  advantage  of 
freeing  the  operating  system  data  structure  associated  with  the  file  descriptor  for  other  appli¬ 
cations.  Finally,  the  epioc  program  calls  the  pause  system  call  to  enter  the  sleep  state  as  de¬ 
scribed  previously. 

4.2  LOADABLE  MODULES 

The  lOA  module,  the  IOC  multiplexer  driver  module,  and  the  EP  driver  module  are  all 
loadable  modules.  Loadable  modules  do  not  require  an  operating  system  reboot  when  they  are 
installed  or  replaced. 

As  described  previously,  the  configuration  daemon  program,  epioc,  maintains  a  connec¬ 
tion  between  the  IOC  multiplexer  driver  module  and  the  EP  driver  module.  This  program 
must  be  killed  before  replacing  a  module.  The  following  shell  program,  contained  in  the  file 
kill_epioc,  kills  any  epioc  program  it  finds  in  the  Unix  kernel  process  table. 

KILL=epioc 

N='ps  aux  I  grep  -w  $KILL  ]  cut  -cl 0-1 4' 
for  value  in  $N 
do 

if  [  $$  -gt  $value  ] ;  then 
kill  -9  $value 
fi 
done 

The  following  shell  program,  located  in  the  file  load_ioa,  unloads  any  existing  lOA  mod¬ 
ule  and  loads  a  new  one. 

if  [  'modstat  |  grep  -w  ioa  |  wc  -1'  -gt  "0"  ];  then 
modunload  -id  'modstat  |  grep  — w  ioa  |  cut  -cl-3' 
fi 

modload  ioa.o  —entry  _ioainit 
:hmod  600  ioa 

A  similar  shell  program,  located  in  the  file  load_ioc,  performs  the  same  function  for  the 
IOC  multiplexer  driver  module. 

if  [  'modstat  |  grep  -w  ioc  |  wc  -1'  — gt  "0"  ];  then 
modunload  -id  'modstat  |  grep  — w  ioc  (  cut  -cl-3' 
fi 

modload  ioc.o  —entry  _iocinit  —exec  install_ioc 
chmod  600  ioc 
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An  important  difference  between  the  shell  programs  in  the  files  load_ioa  and 
load_ioc  is  that  file  load_ioc  specifies  the  —exec  parameter  on  its  modload  command 
while  file  load_ioa  does  not.  Unlike  the  lOA  module,  the  IOC  multiplexer  driver  module  is 
a  driver.  Unix  drivers  have  a  major  device  number.  They  also  have  one  or  more  entries  in  the 
/dev  directory  associating  file  names  with  minor  device  numbers  for  that  major  device  num¬ 
ber.  The  /dev  directory  entries  cannot  be  generated  until  the  major  device  number  is  known. 
The  modload  command  selects  the  major  device  number.  The  —exec  parameter  of  the  mod- 
load  command  passes  the  major  device  number  for  character  devices  as  parameter  $4  to  the 
shell  command  immediately  following  —exec  on  the  command  line.  The  shell  command  re¬ 
ceiving  the  major  device  number,  in  turn,  generates  the  needed  /dev  directory  entries.  In  this 
case,  the  shell  command  receiving  the  major  device  number  is  the  shell  program  contained  in 
the  file  install_ioc. 

The  shell  program  in  file  install_ioc  contains  two  nested  loops  that  create  /dev  direc¬ 
tory  entries  for  the  sixteen  channels  provided  by  each  of  the  four  input/output  controllers.  It 
also  creates  the  /dev  directory  entry  for  the  port  dedicated  to  the  epioc  program. 


DEV=/dev/ioc 
rm  -f  $DEV\0 
/etc/mknod  $DEV\0  c  $4  0 
chmod  666  $DEV\0 
minor* 1 

for  ctlr  in  0  1  2  3 
do 

for  chan  in0123456789abcdef 
do 

rm  -f  $DEV$ctlr . $chan 

/etc/mknod  $DEV$ctlr . $chan  c  $4  $minor 
chmod  666  $DEV$ctlr.$chan 
minor* 'expr  $minor  +  1' 
done 
done 

The  shell  program  for  the  EP  driver  module,  contained  in  the  file  load_ep,  has  the  same 
form  as  that  for  the  IOC  multiplexer  driver  module. 

if  [  'modstat  |  grep  -w  ep  j  wc  — 1'  -gt  "0"  ] ;  then 
modunload  —id  'modstat  |  grep  — w  ep  |  cut  —cl— 3' 
fi 

modload  ep.o  —entry  _epinit  -conf  ep.conf  —exec  install_ep 
chmod  600  ep 

Since  the  EP  driver  module  is  not  a  multiplexer,  the  install_ep  file  is  much  simpler. 
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rm  — f  /dev/epO 
mknod  /dev/epO  c  $4  0 
chmod  666  /dev/epO 

The  Makefile  to  install  the  first  instance,  or  to  replace  an  existing  instance  of  any  of  the 
three  modules,  is  as  follows: 

CFLAGS— DDEBUG=0  -O  -Dsun4  -DKERNEL  -DVDDRV  -I/sys  -target  sun4  -c 

all:  ioa  ioc  ep  epioc 

ioa:  ioa.o  ./load_ioa 
. /kill_epioc 
. /load_ioa 
. /epioc 

ioc:  ioc.o  . /load_ioc  . /install_ioc 
. /kill_epioc 
. /load_ioc 
. /epioc 

ep:  ep.o  ./loadep  ./install_ep  ./ep.conf 
. /kill_epioc 
. /load_ep 
. /epioc 

ioa.o:  ioa.c  epmsg.h  epcntl.h 
cc  $( CFLAGS)  ioa.c 

ioc.o:  ioc.c  epmsg.h 

cc  ${ CFLAGS)  ioc.c 

ep.o;  ep.c  epmsg.h  epreg.h 
cc  $(CFIiAGS)  ep.c 

epioc;  epioc. c 

cc  — o  epioc  epioc. c 
. /kill_epioc 
. /epioc 

43  HARDWARE  PARAMETERS 

The  EP  driver  module  interfaces  with  the  VME  R/VM  board.  Unix  needs  to  know  the 
VMEbus  starting  address  and  the  VMEbus  access  mode  of  the  VME  RAM  board  so  that  it  can 
map  it  into  the  virtual  address  space  seen  by  the  EP  driver  module.  The  EP  driver  module  re¬ 
ceives  interrupts  from  the  VME  ANAJVK— 44(  V)  EP  board.  Unbc  needs  to  know  the  VMEbus 
interrupt  priority  and  the  VMEbus  interrupt  acknowledge  vector  of  the  interrupt  generated  by 


the  VME  AN/UYK-44(V)  EP  board  so  it  can  direct  its  interrupts  to  the  interrupt  handler 
within  the  EP  driver  module. 

All  this  information  is  provided  by  the  file  ep .  conf  that  Unbc  reads  when  it  loads  the  EP 
driver  module. 

device  epO  at  vme32d32  ?  csr  0x10000000  priority  2  vector  epintr  0xe4 

The  file  contents  are  interpreted  in  the  following  manner.  The  EP  driver  module  interfaces  to  a 
real  hardware  device.  There  is  only  one  such  device,  and  it  is  identified  as  epO.  The  VME 
RAM  board  supports  VMEbus  access  mode  A32  D32.  The  VME  RAM  board  has  a  VMEbus 
starting  address  of  0x10000000.  The  interrupt  generated  by  the  VME  AN/UYK-44(V)  EP 
board  has  VMEbus  interrupt  priority  2  and  interrupt  acknowledge  vector  Oxe 4.  Unix  is  to  di¬ 
rect  these  interrupts  to  the  interrupt  handler  located  at  address  epintr  within  the  EP  driver 
module. 

Since  Unix  does  not  need  to  know  the  number  of  memory  bytes  in  the  VME  RAM  board, 
that  information  does  not  appear  in  the  ep .  conf  file.  The  VME  RAM  board  size  is  important 
to  the  EP  driver  module.  The  size  is  specified  in  terms  of  16— bit  AN/UYK— 44(V)  words  with¬ 
in  the  EP  driver  module  file  epreg .  h. 

4.4  SYSTEM  BOOT 

To  automatically  start  the  AN/UYK-44(V)  IOC  emulation  when  the  system  boots,  add 
the  following  line  to  the  /etc/rc .  local  file  if  it  is  does  not  already  exist. 

/usr/local/ep/rc . ep 

The  ANAJYK— 44(V)  EP  initialization  shell  file  /usr/local/ep/rc  .ep  contains  the  fol¬ 
lowing  commands. 

echo  "UyK-44EP  Initialization" 

DIR=/usr /local /ep 

$DIR/kill_epioc 

$DlR/load_ep 

$DIR/load_ioc 

$DIR/load_ioa 

$DIR/epioc 

The  call  to  the  shell  file  kill_epioc  is  not  really  necessary  during  reboot,  but  is  included 
anyway  for  safety  reasons. 


5.0  EP  DRIVER  MODULE  SOURCE  LISTINGS 


5.1  AN/UYK-44(V)  MEMORY  BOARD  STRUCTURE  -  epreg .  h 

#define  EP_MEM_SIZE  (1024*1024) 

#define  RUPT44_PARAM_BLK_PTR  (EP_MEM_SIZE-256-10 ) 

struct  ep_mem  { 

unsigned  short  ep_word[EP_MEM_SIZE— 256-12 ) ; 

unsigned  long  ep_mailbox_ptr ; 

unsigned  short  ep_i_loc)c; 

unsigned  short  ep_class; 

unsigned  short  ep_code; 

unsigned  short  ep_sr2 ; 

unsigned  short  ep_c_lock; 

unsigned  short  ep_limit; 

unsigned  short  ep_iocr; 

unsigned  short  ep_rega; 

unsigned  short  ep_cell[2]; 

unsigned  short  ep_page_reg[256 ] ; 

}; 

5.2  STREAM  MESSAGE  FORMATS  -  epmsg .  h 

struct  insg_cntl_part  { 
unsigned  char  function; 
unsigned  char  ack; 
unsigned  char  device; 
unsigned  char  chain; 
unsigned  short  address; 
unsigned  short  data; 
unsigned  short  control; 
unsigned  short  status; 
unsigned  short  limit; 

}; 

/*  ack  field  definitions  */ 

#define  DISCARD  0  /*  discard  message  after  execution  •/ 

#define  REPLY  1  /*  return  message  after  execution  */ 

/*  chain  field  definitions  */ 

#define  OUTPUT  0  /*  output  chain  */ 

#define  INPUT  1  /*  input  chain  */ 
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/*  function,  address,  data,  and  control  field  definitions  */ 


#def ine 

NO_FUNCTION 

0 

#def ine 

IO_CELL 

1 

/* 

10  command  cell 

•/ 

/* 

address:  second  command  cell  word 

*/ 

/* 

data:  not  used 

*/ 

/* 

control:  first  command  cell  word 

*/ 

#def ine 

READ_INST 

2 

/* 

read  next  instruction 

•/ 

/* 

address:  instruction  address 

*/ 

/• 

data:  instruction  contents 

*  / 

/• 

control:  not  used 

*/ 

#def ine 

READ_INST_Y 

3 

/* 

read  instruction  y  field 

*/ 

/* 

address:  y  field  address 

*/ 

/* 

data:  y  field  contents 

*/ 

/• 

control:  instruction  contents 

*/ 

#def ine 

JUMP_INST 

4 

/* 

jump  and  read  next  instruction 

*  / 

/* 

address:  instruction  address 

*/ 

/* 

data:  instruction  contents 

•/ 

/* 

control:  not  used 

*/ 

#def ine 

JUMP_STAT 

5 

/• 

jump  if  status  bit  set 

*/ 

/* 

and  read  next  instruction 

*! 

/* 

address:  instruction  address 

*/ 

/* 

data:  instruction  contents 

*/ 

/* 

control:  status  register  mask 

*/ 

#def ine 

READ_REG 

6 

/* 

read  control  register 

*/ 

/* 

address:  not  used 

*/ 

/* 

data:  register  contents 

*/ 

/* 

control:  register  number 

*/ 

#def ine 

WRITE_REG 

7 

/* 

write  control  register 

*/ 

/* 

address:  not  used 

*/ 

/* 

data:  write  data 

*/ 

/* 

control:  register  number 

*/ 

#def ine 

REG_TO_MEM 

8 

/* 

copy  control  register  to  memory 

*/ 

/* 

address:  memory  address 

•/ 

/* 

data:  register  contents 

*/ 

/* 

control:  register  number 

*/ 

#def ine 

MEM_TO_REG 

9 

/* 

copy  memory  to  control  register 

*/ 

/* 

address:  memory  address 

*/ 

/* 

data:  memory  contents 

*  / 

/* 

control:  register  number 

*/ 
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#define  READ  START 
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#def ine 

READ_ 

START 

10 

/• 

read  BCW  and  BAP 

*/ 

/• 

address:  buffer  address  pointer 

*/ 

/* 

data:  address  of  BCW— BAP 

•/ 

/• 

control:  buffer  control  word 

*/ 

#def ine 

READ_: 

BUF 

11 

/• 

read  memory  buffer 

*/ 

/• 

address:  buffer  address  pointer 

•/ 

/* 

data:  not  used 

•/ 

/* 

control:  buffer  control  word 

*/ 

#def ine 

WRITE 

_START 

12 

/• 

write  BCW  and  BAP 

•/ 

/• 

address:  buffer  address  pointer 

•/ 

/• 

data:  address  of  BCW-BAP 

•/ 

/* 

control:  buffer  control  word 

*/ 

#def ine 

WRITE 

_BUF 

13 

/* 

write  memory  buffer 

*/ 

/* 

address:  buffer  address  pointer 

*/ 

/* 

code:  not  used 

*/ 

/* 

control:  buffer  control  word 

*/ 

#def ine 

EF_START 

14 

/* 

read  external  function  BCW  and  BAP 

*/ 

/* 

address:  buffer  address  pointer 

•/ 

/* 

data:  address  of  BCW-BAP 

*/ 

/* 

control:  buffer  control  word 

*/ 

#def ine 

EF_BUF 

15 

/* 

read  external  function  memory  buffer 

*/ 

/* 

address:  buffer  address  pointer 

*/ 

/* 

data:  not  used 

*/ 

/* 

control:  buffer  control  word 

•/ 

#def ine 

WRITE 

WORD 

16 

/* 

write  memory  word  thru  mask 

*/ 

/* 

address:  memory  address 

*/ 

/* 

data:  memory  data 

*/ 

/* 

control:  write  mask 

*/ 

#def ine 

INTERRUPT 

17 

/* 

generate  UYK— 44  interrupt 

*/ 

/* 

address:  interrupt  code 

*/ 

/* 

data:  interrupt  class 

*/ 

/* 

control:  CP  status  register  2 

*/ 

#def ine 

STAT_ 

TO_MEM 

18 

/* 

copy  status  register  to  memory 

*/ 

/* 

address:  memory  address 

*/ 

/* 

data:  status  register  contents 

*/ 

/* 

control:  status  register  number 

*/ 

#def ine 

WRITE 

_STAT 

19 

/• 

write  status  register 

*/ 

/* 

address:  status  register  number 

*/ 

/* 

data:  write  data 

*/ 

/* 

control :  write  mask 

*/ 

20 


#define  TEST  WORD 


/* 

test  memory  word 

thru 

mask 

/» 

address:  memory 

address 

•/ 

/* 

data :  memory 

read 

data 

•/ 

/* 

control :  memory 

data 

mask 

•/ 

#def ine 

TEST_ 

AND 

_SET 

21 

/* 

test  and 

set  memory  word  thru  mask 

•/ 

/• 

address : 

memory  address 

•/ 

/• 

data: 

memory  read/write  data 

•/ 

/* 

control : 

memory  data  mask 

•/ 

#def ine 

CHAN_ 

CONTROL 

22 

/• 

channel  control 

•/ 

/* 

address : 

channel  select  bits 

•/ 

/* 

data: 

control  bits  set 

•/ 

/* 

control : 

control  bit  clear  mask 

»/ 

#def ine 

WRITE 

;_Ei_ 

WORD 

23 

/* 

write  external  interrupt  word 

*/ 

/* 

address : 

32— bit  El  word  extension 

*/ 

/* 

data: 

El  word  data 

*/ 

/* 

control : 

size  of  El  word  in  bytes 

*/ 

/*  status  field  definitions  */ 


#def ine 

EP_ 

_NO_FAULTS 

0 

/* 

#def ine 

EP_ 

_READ_FAULT 

1 

/* 

#define 

EP, 

.WR1TE_FAULT 

2 

/* 

#def ine 

EP. 

.EXEC_FAULT 

3 

/* 

#define 

EP 

RANGE  FAULT 

4 

/* 

EP  memory  access  ok  •/ 

EP  memory  read  protect  fault  */ 
EP  memory  write  protect  fault  */ 
EP  memory  execute  protect  fault  */ 
EP  memory  address  range  fault  */ 


53  IOC  REGISTER  DEHNITIONS  ~  epreg.h 

/*  control  register  definitions  */ 


#def ine 

IN_BCW 

0x0 

/* 

input  buffer  control  word  */ 

#def ine 

IN_BAP 

0x1 

/* 

input  buffer  address  pointer  */ 

#def ine 

IN_CAP 

0x2 

/* 

input  chain  address  pointer  */ 

#def ine 

OUT_BCW 

0x4 

/* 

output  buffer  control  word  */ 

#def ine 

OUT_BAP 

0x5 

/* 

output  buffer  address  pointer  */ 

#def ine 

OUT_CAP 

0x6 

/* 

output  chain  address  pointer  */ 

/*  IOC  status  register  0  bit  definitions  */ 


#define  IN_RUPT_PEND 
#define  OUT_RUPT_PEND 
#define  EI_RUPT_PEND 
#define  ICTO_RUPT_PEND 
#define  IN_BUF_ACTIVE 
#define  OUT_BUF_ACTIVE 
#define  EI_WORD_PEND 
#define  COND  TEST 


0x0100 

/* 

input  chain  interrupt  pending  ♦/ 

0x0200 

/* 

output  chain  interrupt  pending  */ 

0x0400 

/* 

external  interrupt  pending  */ 

0x0800 

/* 

intercomputer  time-out  interrupt  pending 

0x1000 

/* 

input  chain  active  */ 

0x2000 

/* 

output  chain  active  */ 

0x4000 

/* 

external  interrupt  enable  */ 

0x8000 

/* 

conditional  jump  test  bit  */ 

/•  IOC  status  register  3  bit  definitions  */ 

#define  IN_CH_ACTIVE  0x0001  /*  active  input  chain  flag  */ 

#define  IN_CH_ABORT  0x0002  /*  abort  input  chain  flag  */ 

#define  OUTCHACTIVE  0x0004  /*  active  output  chain  flag  */ 

#define  OUT_CH_ABORT  0x0008  /*  abort  output  chain  flag  */ 

#define  EIE_LINE  0x0010  /*  external  interrupt  data  enable  •/ 

#define  RUPT_GEN  0x0020  /*  interrupt  generation  enable  •/ 

/*  flag  definitions  */ 

#define  BF_FLAG  OxCOOO  /*  biased  fetch  flag  mask  */ 

#define  ALL_ONES  OxFFFF  /•  all  flag  bits  set  to  one  */ 

#define  ALL_ZEROS  0x0000  /*  all  flag  bits  set  to  zero  •/ 

5.4  AN/UYK-44(V)  INTERRUPT  DEFINITIONS  -  epreg.h 

#define  CIjASS_1  1  /*  class  1  interrupt  */ 

#define  RESUME_FAULT  0x2  /*  memory  resume  fault  */ 

#define  CLASS_2  2  /*  class  2  interrupt  */ 

#define  COMMAND_FAULT  0x02  /*  IOC  command  instruction  fault  */ 

#define  PROTECT_FAULT  0x18  /*  memory  protection  fault  */ 

#define  CIiASS_3  3  /*  class  3  interrupt  */ 

5.5  GLOBAL  DECLARATIONS 

#ifndef  DEBUG 
#  define  DEBUG  0 
#endif 

#include  "ep.h" 

#include  "epreg.h" 

#include  "epmsg.h"#include  <sys/types .h> 

#include  <sys/param. h> 

#include  <sys/sysmacros .h> 

#include  <sys / stream. h> 

#include  <sys/stropts.h> 

#include  <sys/dir.h> 

#include  <sys/signal.h> 

#include  <sys/user.h> 

#include  <sys/errno.h> 

#include  <sys/buf.h> 

#include  <sys/conf.h> 

#include  <sun/vddrv.h> 
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/•  driver  related  declarations  */ 


#include  <sundev/inbvar .h> 

int  epprobe();  /*  VME  probe  routine  •/ 

struct  mb_device  ‘epdinfofNEP] ; 


struct  mb_driver  epdriver  = 
epprobe , 

0, 

0, 

0, 

0, 

0, 

sizeof  ( struct  ep_inem ) , 
"ep", 
epdinfo, 

0, 

0, 

0, 

0 

}; 

/*  stream  related  declarations 


/ *  probe  • / 

/ •  s lave  • / 

/•  attach  */ 

/*  go  */ 

/ *  done  * / 

/•  intr  */ 

/*  size  */ 

/*  device  neune  •/ 

/*  device  state  struct  */ 

/*  controller  name  */ 

/*  controller  state  struct  •/ 
/*  flags  •/ 

/*  interrupt  linked  list  */ 


*/ 


static  int  epopen(); 
static  int  epwput(); 
static  int  epwsvr(); 
static  int  epclose(); 


/»  open  routine,  called  on  each  open  *! 

/*  write  queue  put  procedure  */ 

/*  write  queue  service  routine  */ 

/*  close  routine,  called  on  last  close  */ 


static  struct 
0, 

"ep", 

0, 

INFPSZ , 
150, 
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module_info  minfo  =  { 

/*  ID  number  */ 

/*  name  */ 

/*  queue  minimum  packet  size  accepted  */ 
/*  queue  maximum  packet  size  accepted  */ 
/*  queue  flow  control  high  water  mark  */ 
/*  queue  flow  control  low  water  mark  */ 


}; 


static  struct 
NULL, 
NULL, 
epopen , 
epclose, 
NULL, 
&minfo, 
NULL 

}; 


qinit  rinit  =  { 

/*  read  queue  put  routine  */ 

/*  read  queue  service  routine  */ 

/*  open  routine,  called  on  each  open  */ 

/•  close  routine,  called  on  last  close  */ 

/*  reserved  */ 

/*  pointer  to  read  queue  information  structure  */ 
/*  pointer  to  read  queue  statistics  structure  */ 


static  struct  qinit  winit  =  { 

epwput,  /*  write  queue  put  routine  */ 

epwsvr,  /*  write  queue  service  routine  •/ 

NULL,  /*  ignored  */ 

NULL,  /*  ignored  */ 

NULL,  /*  reserved  */ 

iminfo,  /*  pointer  to  write  queue  information  structure  •/ 

NULL  /*  pointer  to  write  queue  statistics  structure  */ 

}; 


struct  streamtab  epinfo 
srinit, 

&winit, 

NULL, 

NULL, 

NULL 

}; 


=  { 

/»  pointer  to  read  queue  initialization  structure  •/ 
/•  pointer  to  write  queue  initialization  structure  •/ 
/•  multiplexer  drivers  only  —  not  used  */ 

/*  multiplexer  drivers  only  -  not  used  */ 

/*  pointer  to  module  push  list  on  first  open  */ 


struct  ep  { 

queue_t  *rq; 
queue_t  *wq ; 
struct  ep_mem  *mem; 
char  openflg; 
char  errflg; 

} ; 

struct  ep  ep_ep[NEP]; 
int  ep_cnt  =  NEP; 


/*  pointer  to  read  queue  */ 

/*  pointer  to  write  queue  •/ 

/*  pointer  to  UYK— 44  memory  •/ 

/*  device  open  flag  •/ 

/*  memory  access  error  flag  */ 

/*  minor  device  private  data  structures  */ 
/*  number  of  valid  minor  devices  */ 


5.6  LOADABLE  MODULE  STRUCTURES 

extern  int  nulldev{); 
extern  int  nodev ( ) ; 

struct  cdevsw  epcdev  =  { 

nodev,  nodev,  nodev,  nodev,  nodev,  nodev, 
nodev,  0,  sepinfo,  0, 

}; 

struct  vdldrv  epvd  =  { 


VDMAGIC_DRV, 

/* 

type  of  module  is  device  */ 

"ep"  , 

/* 

name  of  device  */ 

NULL, 

/* 

mb_ctlr  structure  address  */ 

tepdriver , 

/* 

mb_driver  structure  address  */ 

NULL, 

/* 

mb_device  array  structure  address,  use  conf  file  */ 

0, 

/* 

number  of  controllers  */ 

NEP, 

/* 

number  of  devices  */ 

NULL, 

/* 

bdevsw  entry  address  */ 
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&epcdev, 

0, 

0 

>; 


/»  cdevsw  entry  address  »/ 

/*  block  device  number  chosen  by  system  */ 

/*  character  device  number  chosen  by  system  */ 


5.7  LOADABLE  MODULE  INITIALIZATION 

epinit ( cmdcode ,  vdp,  vdi,  vds) 
unsigned  int  cmd_code; 
struct  vddrv  *vdp; 
caddr_t  vdi; 
struct  vdstat  vds; 

{ 

switch ( cmd_code )  { 
case  VDLOAD:  { 

vdp->vdd_vdtab  =  (struct  vdlinkage  *)iepvd; 
return ( 0 ) ; 

} 

case  VDUNLOAD :  { 
return ( 0 ) ; 

} 

case  VDSTAT:  { 
return ( 0 ) ; 

} 

default:  { 
return(EIO) ; 

} 

} 

} 


5.8  PROBE  ROUTINE 

epprobe(addr,  unit) 

caddr_t  addr;  /*  hardware  kernel  virtual  address  */ 

int  unit;  /*  minor  device  number  */ 

{ 

register  struct  epmem  *ep_mem; 
register  int  i; 

ep_mem  =  (struct  ep_mem  *)addr; 

if  (peekc(  (char  *  )&ep_mein— >ep_word[  0 ) )  ==  — 1)  { 
return ( 0 ) ; 

} 

if (peekc( (char  * ) &ep_mem->ep_page_reg[ 255 ] )  ==  -1 )  { 
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printf("ep:  bad  memory  board  address  range\n" ) ; 
return ( 0 ) ; 

} 

for(i  =0;  i  <  256;  i++ )  { 

if ( poke (( short  * )iep_mem->ep_page_reg[ i ] ,  i))  { 

printf("ep:  IOC  page  register  initialization  f ailureXn" ) ; 
return{ 0 ) ; 

} 

} 

return( sizeof { struct  ep_mem) ) ; 

} 

5.9  INTERRUPTER  ROUTINE 

static  int 

rupt44{ep,  class,  code,  sr2 ) 
struct  ep  *ep; 
unsigned  short  class; 
unsigned  short  code; 
unsigned  short  sr2 ; 

{ 

struct  ep_mem  *ep_mem; 
unsigned  long  absaddr; 
unsigned  long  *p; 

#if  DEBUG  >  0 

printf("ep:  UYK— 44  Interrupt  Class  %x  Code  %x  SR2  %x\n",  class,  code,  sr2 ) 
#endif 

ep_mem  =  ep>— >mem; 
if (ep_mem->ep_i_lock  !=  0)  { 

printf("ep:  UYK-44  interrupt  parameter  block  lockedXn"); 
return ( 0 ) ; 

} 

ep_mem->ep_i_lock  =  OxFfFF; 

ep_mem->ep_class  =  class: 
ep_mem->ep_code  =  code ; 
ep_mem— >ep_sr2  =  sr2 ; 

absaddr  =  ep_mem->ep_mailbox_ptr ; 
if (absaddr  >=  { sizeof (ep_mem->ep_word)  »  1))  { 
printf("ep:  bad  ep_mailbox_ptr\n" ) ; 
return ( 0  ) ; 

} 

p  =  (unsigned  long  *)( iep_mem->ep_word( absaddr ]) ; 
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*p  =  RUPT44_PARAM_BLK_PTR 
return ( 1 ) ; 
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5.10  READ  AN/UYK-44(V)  INSTRUCTION  WORD  ROUTINE 

static  unsigned  short 
ri44w(ep,  pageset,  reladdr) 
struct  ep  ‘ep; 
int  pageset; 

unsigned  short  reladdr;  /*  uyK-44  relative  address  */ 

{ 

struct  ep_ineiti  *ep_mem; 
int  pagenum; 
unsigned  long  absaddr; 

ep_inem  =  ep->mem; 

pagenum  =  ((pageset  &  0x3)  «  6)  +  ((reladdr  »  10)  t  0x3F); 
if (ep_mem->ep_page_reg[ pagenum]  &  0x4000)  { 
ep->errflg  =  EP_EXEC_FAULT; 
rupt44(ep,  CLASS_2,  PROTECT_FAULT ,  0); 
return ( 0 ) ; 

} 

absaddr  =  (reladdr  &  0x3FF)  +  (( ep_mero->ep_page_reg [ pagenum ]  &  OxFFF) 
10); 

if (absaddr  >=  (sizeof (ep_mem->ep_word)  »  1))  { 
ep->errflg  =  EP_RANGE_FAULT ; 
rupt44(ep,  CLASS_1,  RESUME_FAULT,  0); 
return (0 ) ; 

} 

return (ep_mem->ep_word[ absaddr ] ) ; 

} 

5.11  READ  AN/UYK-44(V)  DATA  WORD  ROUTINE 

static  unsigned  short 
rd44w(ep,  pageset,  reladdr) 
struct  ep  *ep; 
int  pageset; 

unsigned  short  reladdr;  /*  uyK-44  relative  address  */ 

{ 

struct  ep_mem  *ep_mem; 
int  pagenum; 
unsigned  long  absaddr; 

ep_mem  =  ep— >mem; 

pagenum  =  ((pageset  &  0x3)  «  6)  +  ((reladdr  »  10)  &  0x3F); 
if (ep_mem->ep_page_r eg [pagenum]  &  0x1000)  { 
ep— >errflg  =  EP_READ_FAULT; 
rupt44(ep,  CLASS_2,  PROTECT_FAULT ,  0); 
return] 0 ) ; 


« 
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> 

absaddr  =  (reladdr  &  0x3FF)  +  ( (ep_menv->ep_page_reg [ pagenum]  t  OxFFF)  « 
10); 

if (absaddr  >=  ( sizeof {ep_mero->ep_word)  »  1))  { 
ep->errflg  =  EP_RANGE_FAULT ; 
rupt44(ep,  CLASS_1,  RESUME_FAULT ,  0); 
return(O) ; 

} 

return  ( ep_meiiv->ep_word  [  absaddr  ] ) ; 


5.12  WRITE  AN/UYK-44(V)  DATA  WORD  ROUTINE 

static  void 

wd44w(ep,  pageset,  reladdr, 
struct  ep  *ep; 
int  pageset; 
unsigned  short  reladdr; 
unsigned  short  value; 

{ 

struct  ep_mein  *ep_mein; 

int  pagenum; 

unsigned  long  absaddr; 

ep_mem  =  ep->mein; 

pagenum  =  ((pageset  &  0x3)  «  6)  +  ((reladdr  »  10)  i  0x3F); 

if (ep_mem->ep_page_r eg [pagenum]  &  0x2000)  { 
ep->errflg  =  EP_WRITE_FAULT ; 
rupt4  4 ( ep ,  CLASS_2 ,  PROTECT_FAULT ,  0 ) ; 
return; 

} 

absaddr  =  (reladdr  &  0x3FF)  +  (( ep_mem->ep_j)age_reg [ pagenum )  b  OxFFF)  « 
10); 

if (absaddr  >=  (sizeof (ep_mem->ep_word)  »  1))  { 
ep->errflg  =  EP_RANGE_FAULT ; 
rupt44(ep,  CLASS_1,  RESUME_FAULT,  0); 
return; 

} 

ep_mem->ep_word[ absaddr]  =  value; 

ep_mem->ep_page_reg [ pagenum ]  |=  0x8000; 


5,13  WRITE  AN/UYK-44(V)  DATA  BYTE  ROUTINE 

static  void 

wd44b(ep,  pageset,  reladdr,  bflag,  value) 


value) 


/*  UYK— 44  relative  address  */ 
/*  write  data  */ 
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struct  ep  *ep; 
int  pageset; 
unsigned  short  reladdr; 
char  bflag; 
unsigned  short  value; 

{ 

struct  ep_mem  *ep_inem; 

int  pagenum; 

unsigned  long  absaddr; 

unsigned  char  *p; 

ep_mem  =  ep->mein; 

pagenum  =  ((pageset  &  0x3)  «  6)  +  ((reladdr  »  10)  &  0x3F); 

if (ep_mem->ep_page_reg[ pagenum]  &  0x2000)  { 
ep->errflg  =  EP_WRITE_FAULT; 
rupt4  4 ( ep ,  CLASS_2 ,  PROTECT_FAULT ,  0 ) ; 
return; 

} 

absaddr  =  (reladdr  &  0x3FF)  -r  ( (ep_mero->ep_page_reg[ pagenum]  6  OxFFF)  « 
10); 

if (absaddr  >=  ( sizeof (ep_mem->ep_word)  »  1))  { 
ep->errflg  =  EP_RANGE_FAULT; 
rupt44(ep,  CLASS_1,  RESUME_FAULT ,  0); 
return; 

} 

p  =  (unsigned  char  * )6ep_mem->ep_word [absaddr ] ; 

if(bflag)  { 

P++; 

} 

*p  =  value; 

ep_mem->ep_page_reg[ pagenum]  |=  0x8000; 


5.14  READ -MODIFY- WRITE  AN/UYK-44(V)  DATA  WORD  ROUTINE 

#ifdef  EPRMW 

extern  unsigned  short  rmw( ) ; 

#else 

unsigned  short 
rmw ( addr ,  wrdata ,  mas  k ) 
unsigned  short  *addr; 
unsigned  short  wrdata; 
unsigned  short  mas)c; 

{ 

register  unsigned  -hort  rddata; 

rddata  =  *addr; 
if (mask)  { 


/*  UYK— 44  relative  address  */ 

/*  0  for  upper  byte,  1  for  lower  byte  •/ 
/*  write  data  */ 
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*addr  =  (wrdata  &  mask)  +  (rddata  &  -mask); 

} 

return ( rddata ) ; 

} 

#endif 

static  unsigned  short 

rmw44w(ep,  pageset,  reladdr,  value,  mask) 
struct  ep  *ep; 
int  pageset; 

unsigned  short  reladdr;  /*  UYK— 44  relative  address  */ 

unsigned  short  value;  /*  write  data  */ 

unsigned  short  mask;  /*  write  data  mask  */ 

{ 

struct  ep_mem  *ep_mem; 
int  pagenum; 
unsigned  long  absaddr; 
unsigned  short  readval; 

ep_mem  =  ep— >mem; 

pagenum  =  ((pageset  6  0x3)  «  6)  +  ((reladdr  »  10)  &  0x3F); 
if (ep_mem->ep_page_reg[ pagenum]  &  0x1000)  { 
ep->errflg  =  EP_READ_FAULT ; 
goto  dorupt; 

} 

if (ep_mem->ep_j)age_reg( pagenum]  &  0x2000)  { 
ep->errflg  =  EP_WRITE_FAULT; 
dorupt : 

rupt44(ep,  CLASS_2,  PROTECT_FAULT,  0); 
return ( 0 ) ; 

} 

absaddr  =  (reladdr  &  0x3FF)  +  ({ ep_menv->ep_page_reg [ pagenum ]  6  OxFFF)  « 
10); 

if (absaddr  >=  ( sizeof (ep_mem->ep_word)  »  1))  { 
ep->errflg  =  EP_RANGE_FAULT ; 
rupt44(ep,  CLASS_1,  RESUME_FAULT,  0); 
return ( 0 ) ; 

} 

readval  =  rmw (Sep_mem->ep_word( absaddr ] ,  value,  mask); 
ep_mem->ep_page_reg I pagenum]  |=  0x8000; 
return ( readval ) ; 

} 

5.15  GET  BUFFER  LENGTH  ROUTINE 

getbcnt(bcw) 
unsigned  short  bcw; 
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int  count; 

count  =  bcw  &  OxOFFF; 

if (count  ==  0)  { 
count  =  0x1000; 

} 

if ((bcw  &  OxCOOO)  ==  OxCOOO)  { 
return ( count  «  2  )  ; 

} 

if ((bcw  &  OxCOOO)  ==  0x8000)  { 
return (count  «  1); 

} 

return (count) ; 


5.16  ADJUST  BUFFER  LENGTH  ROUTINE 

void 

adjbcnt(pbcw,  count) 
unsigned  short  *pbcw; 
int  count; 

{ 

if (count  &  1)  { 

*pbcw  0x1000; 

} 

if((*pbcw  &  OxCOOO)  ==  OxCOOO)  { 
count  »=  2; 

} 

else  if((*pbcw  &  OxCOOO)  ==  0x8000)  { 
count  »=  1 ; 

} 

*pbcw  =  (((*pbcw  I  0x1000)  -  count)  &  OxOFFF)  +  (*pbcw  6  OxFOOO) 


5.17  SET  BUFFER  PAGE  SET  ROUTINE 

bufpset(bcw,  chan) 
unsigned  short  bcw; 
unsigned  char  chan; 

{ 

if(bcw  &  0x2000)  { 
if (chan  &  0x08)  { 
return (3 ) ; 

} 

return (2 ) ; 


} 

return ( 0 ) ; 


5.18  OPEN  ROUTINE 

static  int 

epopen(q,  dev,  flag,  sflag) 


queue_t  *q; 

/* 

pointer  to  read  queue  */ 

dev_t  dev; 

/* 

major  and  minor  device  numbers  */ 

int  flag; 

/* 

file  open  flags  •/ 

int  sflag; 

{ 

struct  ep  *ep; 

/* 

stream  open  flags  */ 

if(sflag)  { 

/* 

check  for  normal  driver  open  */ 

return ( OPENFAIL ) ; 

} 


dev  =  minor ( dev ) ; 

if (dev  >=  ep_cnt)  { 
return ( OPENFAIL ) ; 

} 

if(q->cLptr)  { 

u.u_error  =  EBUSY; 
return ( OPENFAIL ) ; 

} 

ep  =  6ep_ep(dev]; 

*/ 


ep->rq  =  q; 

/* 

pointer  to  read  queue  */ 

ep— >wq  =  WR ( q ) ; 

/* 

pointer  to  write  queue  */ 

q— >q_ptr  =  (char  *)ep; 

/* 

read  queue  link  */ 

WP(q)— >q  ptr  =  (char  ■')cp; 

/* 

write  queu“  link  */ 

ep->mem  =  (struct  ep_mem  * )epdinfo[dev]— >md_addr; 

/*  pointer  to  UYK— 44  memory  */ 

ep->openflg  =1;  /*  mark  device  opened  */ 

return ( dev) ; 


/*  extract  minor  device  number  */ 

/*  check  minor  device  number  range  */ 

/*  check  to  see  if  already  open  */ 

/»  pointer  to  minor  device  private  structure 
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S.19  WRITE  PUT  ROUTINE 


/•  pointer  to  write  queue  */ 
/•  pointer  to  message  */ 


static  int 
epwput ( q ,  mp ) 
queue_t  *q; 
mblk_t  *mp; 

{ 

switch (mp->b_datap->db_type)  { 

default:  { 
freemsg(mp) ; 
break; 

} 

case  M_FLUSH:  { 

if ( *mp->b_rptr  &  FLUSHW)  { 
flushq(q,  FLUSHDATA) ; 

} 

if ( *mp->b_rptr  &  FLUSHR)  { 
*mp->b_rptr  s=  -FLUSHW; 
qreply(q,  mp); 

} 

else  { 

freemsg(mp) ; 

} 

break; 

} 

case  M_PROTO: 
case  M_PCPROTO: 
case  M_IOCTL:  { 
putq(q,  mp); 

*/ 

break; 

} 

} 

return( 0) ; 

} 


5.20  WRITE  QUEUE  SERVICE  ROUTINE 

static  int 
epwsvr ( q ) 
queue_t  *q; 

{ 

mblk_t  *mp; 


/*  discard  message  */ 


/*  if  flush  write  flag  set  */ 

/*  flush  write  queue  */ 

/*  if  flush  read  flag  set  */ 

/*  clear  flush  write  flag  */ 

/*  send  message  back  upstream  *! 

I*  if  flush  read  flag  not  set  *! 
/*  discard  message  */ 


/*  put  message  on  driver  write  queue 
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while((inp  =  getq(q)  )  !=  NULL)  { 
switch ( mp->b_datap->db_type )  { 

case  M_PROTO: 
case  M_PCPROTO:  { 
struct  ep  *ep; 
struct  msg_cntl_part  *p; 
unsigned  char  reply_flag; 

ep  =  (struct  ep  * ) q->q  ptr ;  /•  minor  device  private  structure  */ 

p  =  (struct  msg_cntl_part  » ) (mp->b_datap->db_base ) ; 

ep->errflg  =  EP_NO_FAULTS ; 
reply_flag  =  p->ack; 

switch (p->f unction)  { 

case  READ_INST: 
case  READ_INST_y: 
case  JUMP_INST: 
case  JUMP_STAT:  { 
reply_flag  =  REPLY; 
p->data  =  ri44w(ep,  0,  p->address); 
brea)c; 

} 

case  MEM_TO_REG; 
case  TEST_WORD ;  { 
reply_flag  =  REPLY; 
p->data  =  rd44w(ep,  0,  p->address); 
break; 

} 

case  REG_TO_MEM: 
case  STAT_TO_MEM;  { 

wd44w(ep,  0,  p->address,  p->data); 
if (ep“>errflg  J=  EP_NO_FAULTS )  { 
reply_flag  =  REPLY; 

} 

break; 

} 

case  WRITE_WORD: 
case  TEST_AND_SET;  { 
reply_flag  =  REPLY; 

p->data  =  nnw44w(ep,  0,  p->addres6,  p->data,  p->control); 
break ; 

} 

case  READ_START: 
case  WRITE  START: 


58 


case  EF_START;  { 

reply_flag  =  REPLY; 

p->control  =  rd44w(ep,  0,  p— >data);  /»  get  BCW  */ 

p->address  =  rd44w(ep,  0,  p->data  +1);  /*  get  BAP  */ 

break; 

} 

case  READ_BUF: 
case  EF_BUF:  { 
mblk_t  *bp; 
int  pageset; 
int  bcount; 
int  count;. 

unsigned  short  addr; 
unsigned  short  rddata; 

reply_flag  =  REPLY; 

pageset  =  bufpset(p->control,  p->device); 
bcount  =  count  =  getbcnt(p->control ) ; 
if ((bp  =  allocb(count,  BPRI_MED))  ==  NULL)  { 
printfC'ep:  epwsvr:  allocb  failed\n” ) ; 
break; 

} 

addr  =  p->address; 

if (count  >  0  iS  (p->control  &  OxDOOO)  ==  0x5000)  { 
rddata  =  rd44w(ep,  pageset,  addr); 
if (ep->errflg  !=  EP_NO_FAULTS )  { 
goto  rbabort; 

} 

*bp->b_wptr++  =  (unsigned  char) rddata; 
count — ; 
addr++ ; 

} 

while (count  >=  2 )  { 

rddata  =  rd44w(ep,  pageset,  addr); 
if (ep->errflg  !=  E P_NO_F AULTS )  { 
goto  rbabort; 

} 

*bp->b_wptr++  =  (unsigned  char) (rddata  »  8); 
*bp->b_wptr++  =  (unsigned  char) rddata; 
count  — =  2 ; 
addr++; 

} 

if (count  ==  1 )  { 

rddata  =  rd44w(ep,  pageset,  addr); 
if (ep->errflg  !=  EP_NO_FAULTS )  { 
goto  rbabort; 


/*  pointer  to  data  block  */ 

/*  buffer  page  set  */ 

/*  number  of  buffer  bytes  */ 

/*  number  of  buffer  bytes  left  */ 
/•  16-bit  word  address  */ 

/*  16-bit  word  data  */ 


} 


*bp->b_wptr++  =  (unsigned  char)(rddata  »  8); 
count  =  0; 

} 

rbabort : 

p->address  =  addr; 

adjbcnt{i (p->control ) ,  bcount  —  count); 
linkb(inp,  bp); 
break; 

} 

case  WRITE_BUF:  { 
inblk_t  *bp; 
mblk_t  *bp_next; 
int  pageset; 
int  bcount; 
int  count; 

unsigned  short  addr; 
unsigned  short  wrdata; 
int  size; 

reply_flag  =  REPLY; 
for (bp  =  mp->b_cont;  bp  !=  NULL;  bp  =  bp_next)  { 
if ( !ep->errflg)  { 

bp_next  =  bp->b_cont; 

pageset  =  bufp8et(p->control,  p->device); 
bcount  =  count  =  getbcnt (p->control ) ; 
size  =  bp->b_wptr  -  bp->b_rptr; 
if (size  <  count)  { 
count  =  size; 

} 

addr  =  p->address; 

if (count  >  0  (p->control  &  OxDOOO)  ==  0x5000)  { 
wrdata  =  (unsigned  short) ( •bp->b_rptr++ ) ; 
wd44b(ep,  pageset,  addr,  1,  wrdata); 
if (ep->errflg  !=  EP_NO_FAULTS )  { 
goto  wbabort; 

} 

count — ; 
addr++; 

} 

while (count  >=  2 )  { 

wrdata  =  (unsigned  short) (*bp->b_rptr++)  «  8; 
wrdata  +=  (unsigned  short )( *bp->b_rptr++ ) ; 
wd44w(ep,  pageset,  addr,  wrdata); 
if (ep->errflg  !=  EP_NO_FAULTS )  { 
goto  wbabort; 

} 

count  — =  2; 


/•  pointer  to  data  block  •/ 

/*  pointer  to  next  data  block  */ 
/•  buffer  page  set  •/ 

/•  number  of  buffer  bytes  */ 

/•  number  of  buffer  bytes  left  */ 
/•  16-bit  word  address  */ 

/*  16-bit  word  data  */ 

/*  message  buffer  size  in  bytes  * 


addr++ ; 


} 

if (count  ==  1 )  { 

wrdata  =  (unsigned  short) ( *bp->b_rptr++ ) ; 
wd44b(ep,  pageset,  addr,  0,  wrdata); 
if (ep->errflg  !=  EP_NO_FAULTS )  { 
goto  wbabort; 

} 

count  =  0; 

} 

wbabort : 

adjbcnt( i (p— >control ) ,  bcount  —  count); 
p->address  =  addr; 

} 

freeb(bp) ; 

} 

mp->b_cont  =  NULL; 
break ; 

} 

case  WRITE_EI_WOR0: 
case  INTERRUPT;  { 
mblk_t  *bp; 

bp  =  mp; 
for(;;)  { 

if (p->f unction  ==  WRITE_E1_W0RD)  { 
unsigned  short  addr; 
addr  =  0x80  +  (p->device  -  1); 
switch (p->control)  { 
case  1 :  { 

wd44w(ep,  0,  addr,  p— >data  «  8);  /*  upper  byte  only  */ 

break; 

} 

case  2;  { 

wd44w(ep,  0,  addr,  p->data); 
break; 

} 

case  4:  { 

wd44w(ep,  0,  addr  |  1,  p->address);  /*  upper  16  bits  */ 
wd44w(ep,  0,  addr  &  -1,  p->data);  /*  lower  16  bits  */ 
break; 

} 

} 

} 

else  if (p—>f unction  ==  INTERRUPT)  { 

rupt44(ep,  p->data,  p->address,  p->control ) ; 


loop: 

bp  =  bp— >b_cont; 
if (bp  *=  NULL)  { 
break ; 

} 

if (bp->b_datap->db_type  !=  MPROTO)  { 
goto  loop; 

} 

p  =  (struct  insg_cntl_part  • ) (bp— >b_datap— >db_base ) ; 

} 

break; 

} 

default:  { 
break; 

} 

} 

if (reply_f lag  ==  DISCARD)  { 
freemsg(inp) ; 

} 

else  { 

p— >status  =  ep— >errflg; 
qreply(q,  mp); 

} 

break; 

> 

case  M_IOCTL:  •{ 

nip->b_datap— >db_type  =  M_IOCNAK; 
qreply(q,  mp) ; 
break; 

} 

} 

} 

> 

5.21  CLOSE  ROUTINE 

static  int 
epclose(q,  flag) 
queue_t  *q; 
int  flag; 

struct  ep  *ep; 

ep  =  (struct  ep  *)q->q_ptr;  /*  get  minor  device  private  structure  */ 

ep->openflg  =  0;  /*  mark  device  closed  */ 

return ( 0 ) ; 


/*  pointer  to  read  queue  */ 
/*  file  open  flags  ♦/ 


62 


5.22  INTERRUPT  HANDLER  ROUTINE 

epintr ( dev ) 
int  dev; 

{ 

struct  ep  *ep; 
struct  ep_mem  *ep_mem; 
mblk._t  *mp; 

register  unsigned  short  t; 
dev  =  0; 

ep  =  iep_ep[dev]; 
ep_mein  =  ep->mem ; 

if ( !ep->openf Ig)  {  /•  make  sure  queue  exists  */ 

printf("ep:  unexpected  interrupt  from  UYK— 44\n"); 
return; 

} 

if({mp  =  allocb( sizeof ( struct  msg_cntl_part ) ,  BPRI_MED) )  ==  NULL)  { 
printf{"ep:  epintr:  allocb  f ailedXn"  ) ; 
return; 

} 

mp->b_datap-'>db_type  =  M_PROTO; 

*mp->b_wptr++  =  IO_CELL;  /*  load  function  field  */ 

*mp->b_wptr++  =  REPLY;  /*  load  ack  field  •/ 

t  =  (ep_mem->ep_cell ( 0 ]  &  OxOOFO)  »  4; 

if ( ep_mem->ep_iocr  &  OxOOFO)  {  /*  IOC  instruction  */ 

t  +=  ( ( ep_mem->ep_rega  &  0x0003)  «  4); 

} 

/*  load  device  field  */ 

*mp— >b_wptr++  =  (unsigned  char)t  +  1; 

*mp->b_wptr++  =  0 ; 

t  =  ep_mem->ep_cell [ 1 ] ; 

*mp->b_wptr++  =  t  »  8; 

*mp— >b_wptr++  =  t; 

*mp->b_wptr++  =  0; 

*mp->b_wptr+4  =  0 ; 

t  =  ep_mem— >ep_cell ( 0 ] ; 

*mp— >b_wptr++  =  t  »  8 ; 

*mf>->b_wptr++  =  t; 


/*  load  chain  field  */ 

/*  load  address  field  */ 

/*  load  data  field  */ 

/*  load  command  field  */ 


/*  forced  minor  device  =  0  because  bug  */ 
/•  in  modload  in  SunOS4.1.1.  It  does  */ 

/*  not  pass  dev  param  thru  interrupt  */ 


/*  minor  device  number  •/ 

/•  minor  device  private  structure  */ 
/*  pointer  to  interrupt  message  */ 
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mp->b_wptr++  =  0; 
inp->b_wptr++  =  0; 


/*  load  status  field  */ 


t  =  ep_mein->ep_limit ; 
•mp->b_wptr++  =  t  »  8; 
»nip->b_wptr++  =  t; 

ep_mem->ep_c_lock  =  0; 


/•  load  limit  field  */ 


/*  clear  memory  lock  */ 


putnext ( ep->rq ,  mp ) ; 

} 


/*  send  new  message  upstream  */ 


64 


5.23  PRINT  MESSAGE  DEBUG  ROUTINE 


#if  DEBUG  >  0 


static  char  *function_ 

_str  [ 

]  = 

{ 

"NO_FUNCTION" , 

/* 

0 

no  function  specified 

*/ 

"IO_CELL", 

/* 

1 

10  conunand  cell 

•/ 

"READ_INST" , 

/* 

2 

read  instruction 

*/ 

"READ_INST_y" , 

/* 

3 

read  instruction  y  field 

*/ 

"JUMP_INST", 

/* 

4 

jump  to  new  instruction 

*/ 

" JUMP_STAT" , 

/* 

5 

jump  if  status  bit  set 

*/ 

"READ_REG" , 

/* 

6 

read  control  register 

*/ 

"WRITE_REG" , 

/* 

7 

write  control  register 

*/ 

"REG_TO_MEM" , 

/* 

8 

copy  control  register  to  memory 

*/ 

"MEM_TO_REG" , 

/* 

9 

copy  memory  to  control  register 

*/ 

"READ_START" , 

/* 

10 

read  BCW  and  BAP 

*/ 

"READ_BUF" , 

/* 

11 

read  memory  user  data  buffer 

"WRITE_START" , 

/* 

12 

write  BCW  and  BAP 

*/ 

''WRITE_BUF"  , 

/* 

13 

write  memory  user  data  buffer 

*  / 

"EF_START" , 

/* 

14 

read  BCW  and  BAP 

*/ 

"EF_BUF" , 

/* 

15 

read  memory  user  data  buffer 

*/ 

"WR1TE_W0RD", 

/* 

16 

atomic  read— modify— write 

•/ 

"INTERRUPT" , 

/* 

17 

generate  UYK— 44  interrupt 

•/ 

"STAT_TO_MEM" , 

/* 

18 

copy  status  register  to  memory 

•/ 

"WRITE_STAT" , 

/* 

19 

write  status  register 

•/ 

"TEST_WORD" , 

/* 

20 

test  memory  word 

*/ 

"TEST_AND_SET" , 

/* 

21 

test  and  set  memory  word 

*/ 

"CHAN_CONTROL" , 

/* 

22 

channel  control 

•/ 

"WRITE_E1_W0RD" 

/* 

23 

write  external  interrupt  word 

*/ 

}; 

static  int 
pnnsg(inp,  s) 
mblk_t  *inp; 
char  *s; 

{ 

struct  msg  cntl_part  *p; 
inblk_t  *bp; 
unsigned  short  t; 

if(s)  { 

printf ( "%s : \n" ,  s); 

} 

for (bp  =  mp;  bp  1=  NULL;  bp  =  bp->b_cont)  { 
switch ( bp->b_datap->db_type )  { 
case  M_PROTO; 
case  M_PCPROTO:  { 

p  =  (struct  insg_cntl_part  * ) ( bp->b_datap->db_base ) ; 


t  =  p->function; 

if(t  >  0  iiS  t  <  ( sizeof  ( f unction_str )  /  sizeof  (  *f unction  str )  )  )  { 
printf("  %s",  function_str [t] ) ; 

} 

else  { 

printf{"  %x",  t); 

} 

printf(",  ack  %s'',  (p->ack  ==  DISCARD)  ?  "DISCARD"  :  "REPLY"); 
printf(",  device  %x",  p->device); 

printfC,  chain  %s\n",  (p->chain  ==  OUTPUT)  ?  "OUTPUT"  :  "INPUT"); 
printf("  address  %x,  data  %x,  control  %x,  status  %x\n", 
p->address,  p->data,  p->control,  p->status); 
break; 

} 

case  M_DATA:  { 

printf{"  block  of  %d  bytesXn",  bp->b_wptr  -  bp->b_rptr); 
break; 

} 

} 

} 

} 

#endif 


6.0  IOC  MULTIPLEXER  DRIVER  MODULE  SOURCE  LISTING 


6.1  GLOBAL  DECLARATIONS 

#ifndef  DEBUG 
#  define  DEBUG  0 
#endif 

#define  NIOC  65  /*  total  number  of  channels  plus  one  •/ 


#include  "epmsg.h" 

#include  <sys /types. h> 

#include  <sys/param.h> 

#include  <sys/sysmacros.h> 
#include  <sys/stream.h> 

#include  <sys/stropts . h> 

#include  <sys/signal.h> 

#include  <sys/user.h> 

#include  <sys/errno. h> 

#include  <sun/vddrv.h> 

#include  <sys/conf.h> 

static  int  iocopen(); 
static  int  iocclose{); 
static  int  iocuwput(); 
static  int  ioclwsvr(); 
static  int  ioclrput(); 

static  struct  module_info  info  =  { 

0, 

"ioc" , 

0, 

INFPSZ, 

512, 

128 

}; 

static  struct  qinit  urinit  =  { 
NULL, 

NULL, 
iocopen , 
iocclose, 

NULL, 

iinfo, 

NULL 

}? 


/*  ID  number  */ 

/*  name  */ 

/*  minimum  packet  size  */ 

/*  maximum  packet  size  */ 

/*  flow  control  high  water  mark  */ 
/*  flow  control  low  water  mark  */ 


/*  put  procedure  */ 

/*  service  procedure  */ 

/*  called  on  push  or  each  open  */ 
/*  called  on  pop  or  last  close  */ 
/*  reserved  for  future  use  */ 

/»  information  structure  */ 

/*  statistics  structure  */ 
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static  struct  qinit  uwinit  =  { 
iocuwput , 

NULL, 

NULL, 

NULL, 

NULL, 

iinfo, 

NULL 

}; 

Static  struct  qinit  Irinit  =  { 
ioclrput, 

NULL, 

NULL, 

NULL, 

NULL, 

iinfo, 

NULL 

}; 

static  struct  qinit  Iwinit  =  { 
NULL, 
ioclwsvr, 

NULL, 

NULL, 

NULL, 

iinfo, 

NULL 

}; 

static  char  *iocmodlist[ ]  =  { 
"ioa" , 

NULL 

}; 

struct  streamtab  iocinfo  =  { 
surinit, 

6.  uwinit, 

Silrinit, 

& Iwinit, 
iocmodlist 

}; 

struct  ioc  { 

unsigned  short  io_reg[16]; 
unsigned  short  io_stat[4]; 
unsigned  short  ei_word[2]; 
unsigned  short  ei_size; 


/•  put  procedure  */ 

/*  service  procedure  */ 

/*  called  on  push  or  each  open  •/ 
/*  called  on  pop  or  last  close  */ 
/*  reserved  for  future  use  */ 

/•  information  structure  •/ 

/»  statistics  structure  */ 


/*  put  procedure  */ 

/*  service  procedure  */ 

/*  called  on  push  or  each  open  •/ 
/*  called  on  pop  or  last  close  */ 
/*  reserved  for  future  use  */ 

/•  information  structure  */ 

/*  statistics  structure  */ 


/*  put  procedure  »/ 

/*  service  procedure  •/ 

/*  called  on  push  or  each  open  */ 
/*  called  on  pop  or  last  close  */ 
/*  reserved  for  future  use  */ 

/*  information  structure  */ 

/*  statistics  structure  */ 


/*  upper  read  queue  definitions  */ 
/*  upper  write  queue  definitions  */ 
/*  lower  read  queue  definitions  */ 
/*  lower  write  queue  definitions  */ 
/*  list  of  modules  to  be  pushed  */ 


/*  10  device  control  registers  */ 

/*  10  channel  status  registers  */ 

/*  pending  external  interrupt  word  */ 
/*  size  of  pending  El  word  in  bytes  */ 
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queue_t  *qptr;  /•  pointer  to  read  queue  •/ 

}; 

struct  ioc  ioc_ioc [ NIOC ] ; 
int  ioc_cnt  =  NIOC; 

queue_t  *iocbot;  /»  lower  write  queue  */ 

int  iocerr; 

static  queuet  *get_next_q( ) ; 
static  mblk_t  *ink_rupt3  (  ) ; 
static  mblk_t  *mk_eiw( ) ; 

/*  class  3  interrupt  code  to  IOC  status  register  0  bit  map  */ 


static  unsigned  short 

rupt_ 

_tO_; 

stat 

EI_RUPT_PEND, 

/* 

000 

*/ 

0, 

/* 

001 

*/ 

IN_RUPT_PEND, 

/* 

010 

*/ 

0, 

/* 

Oil 

*/ 

OUT_RUPT_PEND , 

/* 

100 

*/ 

0, 

/* 

101 

*/ 

ICTO_RUPT_PEND, 

/* 

110 

*/ 

0 

/* 

111 

•/ 

}; 


6.2  LOADABLE  MODULE  STRUCTURES 

extern  int  nulldev(); 
extern  int  nodev(); 

struct  cdevsw  ioccdev  =  { 

nodev,  nodev,  nodev,  nodev,  nodev,  nodev, 
nodev,  nodev,  siocinfo, 

}; 

struct  vdldrv  ioc_vd  =  { 


VDMAGIC_PSEUDO, 

/* 

Drv_magic  * / 

" ioc " , 

/* 

Drv_neune  *  / 

NULL, 

/* 

Drv_mb_c t 1 r  * / 

NULL, 

/* 

Drv_inb_driver  */ 

NULL, 

/* 

Drv_numctlrs  */ 

0, 

/* 

Drv_numctlrs  */ 

NIOC, 

/* 

Drv_numdevs  * / 

0, 

/* 

Drv_bdevsw  */ 

Si  ioccdev. 

/* 

Drv_cdevsw  */ 

0, 

/* 

Drv_blockma jor  */ 

0 

/* 

Drv_charma jor  */ 

}; 
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63  LOADABLE  MODULE  INITIALIZATION 


iocinit( function_code,  vdp,  vdi,  vds) 

unsigned  int  function_code; 

struct  vddrv  *vdp; 

caddr_t  vdi; 

struct  vdstat  *vds; 

{ 

switch (function_code)  { 
case  VDLOAD:  { 

vdp->vdd_vdtab  =  (struct  vdlinkage  *)tioc_vd; 

} 

case  VDUNLOAD: 
case  VDSTAT:  { 
return ( 0 ) ; 

} 

default:  { 
return (EIO) ; 

} 

} 

} 

6.4  OPEN  ROUTINE 

static  int 

iocopen(g,  dev,  flag,  sflag) 
queue_t  *q; 
dev_t  dev; 
int  flag; 
int  sflag; 

{ 

struct  ioc  *ioc; 

if (sflag  ==  CLONEOPEN)  { 

for (dev  =  0;  dev  <  ioc_cnt;  dev++)  { 
if (ioc_ioc[dev] .qptr  ==  NULL)  { 
break; 

} 

} 

} 

else  { 

dev  =  minor ( dev ) ; 

} 

if (dev  >=  ioc_cnt)  { 
return ( OPENFAIL ) ; 

} 


/*  pointer  to  read  queue  */ 

/*  major  and  minor  device  numbers  •/ 
/*  file  open  flags  */ 

/*  stream  open  flags  */ 
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/*  check  to  see  if  already  open  */ 


if(q->q_ptr)  { 

u.u_error  =  EBUSY; 
return ( OPENFAIL ) ; 

} 

ioc  =  iiioc_ioc[dev] ;  /*  pointer  to  minor  device  private  structure 

*/ 

ioc->qptr  =  q;  /*  pointer  to  read  queue  */ 

q— >q  ptr  =  (char  *)ioc;  /*  read  queue  link  */ 

WR(q)->q  ptr  =  (char  *)ioc;  /*  write  queue  link  */ 

ioc->io_stat[ 0 ]  =  ((dev  -  1)  s  OxF)  +  ( ioc->io_stat[ 0 ]  &  -OxF); 

return (dev) ; 

} 

6.5  UPPER  WRITE  PUT  ROUTINE 

static  int 
iocuwput(q,  mp) 
queue_t  *q; 
mblk_t  *mp; 

{ 

struct  ioc  *ioc; 

ioc  =  (struct  ioc  * ) q->q  ptr ; 

switch (mp->b_datap->db_type)  { 
case  M_IOCTL:  { 

struct  iocblk  *iocp; 
struct  linkblk  *linkp; 

iocp  =  (struct  iocblk  * )mp->b_rptr; 

switch ( iocp->ioc_cmd )  { 
case  I_LINK:  { 

if (ioc  !=  ioc_ioc)  {  /*  nak  if  not  device  0  */ 

goto  iocnak; 

} 

if(iocbot  !=  NULL)  {  /*  nak  if  already  linked  */ 

goto  iocnak; 

} 

linkp  =  (struct  linkblk  * )mp->b_cont->b_rptr ; 
iocbot  =  linkE>->l_qbot; 
iocerr  =  0; 
goto  iocack; 

} 


case  I_UNLINK:  { 

if{ioc  !=  ioc_ioc)  {  /*  nak  if  not  device  0  •/ 

goto  iocnak; 

> 

linkp  =  (struct  linkblk  * )mp->b_cont->b_rptr ; 
iocbot  =  NULL; 
iocack: 

iocp— >ioc_count  =0; 
mp->b_datap->db_type  =  M_IOCACK; 
break; 

} 

default:  { 
iocnak: 

mp->b_datap->db_type  =  M_IOCNAK; 
break; 

} 

} 

doreply : 

qreply(q,  mp); 
break; 

} 

case  M_FLUSH :  { 

if ( *mp->b_rptr  &  FLUSHW)  { 
flushq(q,  FLUSHDATA) ; 

} 

if (•mp->b_rptr  &  FLUSHR)  { 
f lushq ( RD ( q ) ,  FLUSHDATA ) ; 

*mp->b_rptr  s=  -FLUSHW; 
goto  doreply; 

} 

f  reeinsg{mp) ; 
break; 

} 

case  M_PROTO: 
case  M_PCPROTO:  { 
if(iocerr  ||  iocbot 
goto  bad; 

} 

putq(q,  mp); 
qenable ( iocbot ) ; 
break; 

} 

default:  { 
bad: 

mp->b_datap->db_type  =  M_ERROR; 


==  NULL)  { 


/*  put  into  upper  write  queue  */ 

/*  schedule  lower  write  service  */ 
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mp— >b_rptr  =  inp->b_wptr  =  mp->b_datap->db_base ; 
*mp— >b_wptr++  =  EINVAL; 
goto  doreply; 

} 

} 

} 


6.6  LOWER  WRITE  QUEUE  SERVICE  ROUTINE 


static  int 
ioclwsvr (q) 
register  queue_t  *q; 

{ 

register  mblk_t  *mp; 
register  queue_t  *nq; 
struct  insg_cntl_part  *p; 
struct  ioc  *iocdp; 
unsigned  short  *srp; 


/*  lower  write  queue  pointer  */ 


/*  upper  write  queue  pointer  */ 


/*  status  register  pointer  */ 


while ( canput ( q->q_next ) )  { 
nq  =  get_next_q ( ) ; 
if(nq  ==  NULL)  { 
return; 

} 

mp  =  getq(nq); 


/*  check  for  room  downstream  */ 

/*  find  non-empty  upper  write  queue  */ 

/*  aren't  any  */ 

/*  get  message  from  that  queue  */ 


p  =  (struct  msg_cntl_part  * ) ( mp->b_datap->db_base ) ; 
p->device  =  ( struct  ioc  * ) nq->q  ptr  —  ioc_ioc ; 

#if  DEBUG  >  1 
prmsg(mp,  "ioclwsvr"); 

#endif 


iocdp  =  s.ioc_ioc(p— >device] ; 
srp  =  «iiocdp->io_stat[  3  ] ; 

if(p->chain  ==  OUTPUT  &&  (*srp  6  OUT_CH_ABORT ) )  { 
goto  discard; 

} 

else  if(*srp  &  1N_CH_AB0RT)  { 
goto  discard; 

} 

switch (p->f unction)  { 

case  READ_REG:  {  /*  read  device  control  register  */ 

p->data  =  iocdp->io_reg[p->control  6  OxF]; 
ackck; 

if(p->ack  ==  DISCARD)  { 
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discard: 

freemsg(mp) ; 
continue; 

} 

qreply(nq,  mp) ;  /•  send  back  upstream  •/ 

continue; 

} 

case  WRITE_REG:  {  /*  write  device  control  register  */ 

int  reg; 

reg  =  p->control  &  OxF; 
iocdp->io_reg[reg]  =  p->data; 
if (reg  ==  IN_CAP)  { 

iocdp->io_stat[3]  (=  IN_CH_ACTIVE; 

} 

else  if (reg  ==  OUT_CAP)  { 

iocdp->io_stat [ 3 ]  | =  OUT_CH_ACTIVE ; 

} 

goto  ackck; 

} 

case  WRITE_STAT;  {  /*  write  channel  status  register  */ 

unsigned  short  *srp; 

srp  =  Stiocdp->io_stat[p->address  &  0x3]; 

•srp  «  (p->data  &  p->control)  +  (*srp  &  -p->control ) ; 
goto  ackck; 

> 

case  READ_1NST:  /*  get  instruction  address  */ 

case  READ_INST_y:  {  /*  get  instruction  y  field  address  */ 

readinst: 

p->address  =  iocdp->io_reg[ (p->chain  ==  INPUT)  ?  IN^CAP  :  OUT_CAP]++; 
break; 

} 

case  JUMP_STAT:  {  /*  conditional  jump  instruction  */ 

if ( ( iocdp->io_stat[ 0 ]  &  p->control)  ==  0)  { 
goto  readinst; 

} 

} 

case  JUMP_1NST:  {  /*  unconditional  jump  instruction  */ 

iocdp->io_reg[ ( p->chain  ==  INPUT)  ?  IN_CAP  :  OUT_CAP]  =  p->address  + 

break; 

} 

case  REG_TO_MEM:  {  /*  control  register  to  memory  */ 

p->data  =  iocdp->io_reg[p->control  6  OxF]; 
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break; 

} 

case  STAT_TO_MEM:  {  /*  status  register  to  memory  */ 

p->data  =  iocdp->io_stat[p->control  fc  0x3]; 
break; 

} 

case  WRITE_EI_WORD:  { 
mblk_t  *bp; 

struct  msg_cntl_part  *pp; 

if ((bp  =  mp->b_cont)  !=  NULL)  { 

pp  =  (struct  msg_cntl_part  * ) (bp->b_datap->db_base ) ; 
pp->device  =  p->device; 

} 

if ( (iocdp->io_Stat[3]  &  (EIE_LINE|RUPT_GEN) )  ==  (EIE_LINE|RUPT_GEN) )  { 
break; 

} 

bp  =  unlinkb(mp); 

if ( ( iocdp->io_stat( 3 ]  &  EIE_LINE)  ==  0)  { 
iocdp->io_stat( 0 ]  |=  EI_WORD_PEND; 
iocdp->ei_word[ 0 ]  =  p->address; 
iocdp->ei_word[  1  ]  =  j>->data; 
iocdp->ei_si2e  =  p->control; 

#if  DEBUG  >  0 

printf ( "ioclwsvr :  external  interrupt  word  pendingXn"); 

#endif 

f reeb(mp) ; 
mp  =  NULL; 

} 

if (bp  !=  NULL)  { 

if ( (iocdp->io_stat[3]  &  RUPT_GEN)  ==  0)  { 
iocdp->io_stat(0]  |=  EI_RUPT_PEND; 

#if  DEBUG  >  0 

printf ( "ioclwsvr :  external  interrupt  pendingXn"); 

#endif 

freemsg(bp) ; 
bp  =  NULL; 

} 

} 

if(mp  1=  NULL)  { 
putnext ( q ,  mp ) ; 

} 

else  if (bp  !=  NULL)  { 
putnext (q,  bp); 

} 
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continue ; 


case  INTERRUPT;  { 

if(p->data  ==  3 )  {  /•  class  3  interrupt  •/ 

if ( (iocdp->io_stat[3]  &  RUPT_GEN)  ==  0 )  { 

iocdp— >io_stat [ 0 ]  |=  rupt_to_stat[ p— >address  &  0x7]; 

#if  DEBUG  0 

printf ( "ioclwsvr :  interrupt  pendingXn"); 

#endif 

goto  ackck; 

} 

p— >address  =  (p-'»address  (■  0x7)  +  ((p->device  -  1)  <<  3) 

} 

break; 

} 

case  CHAN_CONTROL:  {  /*  channel  control  •/ 

int  dev; 

unsigned  short  i; 
mblk_t  *bp; 

bp  =  NULL; 

dev  =  ((p->device  -  1)  j  OxF)  +1; 
for{i  =  (1«15);  i  !=  0;  i  »=  1)  { 

if (dev  <  ioc_cnt  &&  (p->address  6  i)  !=  0)  { 
srp  =  iioc_ioc ( dev] . io_stat( 3 ] ; 

•srp  1=  p->data; 

*srp  s=  p->control; 
srp  =  4ioc_ioc [ dev] . io_stat[ 0 ] ; 
if(p->data  &  RUPT_GEN)  { 
if(*srp  &  E1_RUPT_PEND)  { 

*srp  i=  -EI_RUPT_PEND; 

bp  =  mk_rupt3(bp,  dev,  0x0); 

} 

if(*srp  &  OUT_RUPT_PEND )  { 

*srp  -OUT_RUPT_PEND ; 

bp  =  mk_rupt3 (bp,  dev,  0x4); 

} 

if(*srp  &  IN_RUPT_PEND )  { 

•srp  «.=  -IN_RUPT_PEND; 

bp  =  ink_rupt3 (bp,  dev,  0x2); 

} 

} 

if(p->data  &  EIE_LINE)  { 
if(*srp  &  EI_WORD_PEND)  { 

•srp  &=  -EI_WORD_PEND; 
bp  =  mk_eiw(bp,  dev); 
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} 


} 

} 

dev — ; 

} 

if (bp  !=  NULL)  { 
putnext(q,  bp); 

} 

goto  ac)cc)c; 

} 

} 

putnext(q,  mp); 

} 

} 

6.7  CLASS  3  INTERRUPT  MESSAGE  ROUTINE 

static  mblk_t  * 
m)c_rupt3  (bp,  dev,  code) 
mblk_t  *bp; 
int  dev; 
int  code; 

{ 

mblk_t  *np; 

if((np  =  allocb(si2eof (struct  msg_cntljpart ) ,  BPRI_MED))  ==  NULL)  { 
printf("ioc:  mk_rupt3 :  allocb  f ailedXn" ) ; 

} 

else  { 

np->b_datap->db_type  =  M_PROTO; 


*  np— >b_wptr ++ 

= 

INTERRUPT; 

/• 

function  field  */ 

*np— >b_wptr++ 

= 

DISCARD; 

/* 

ack  field  */ 

*  np— >b_wptr++ 

= 

(unsigned  char)dev; 

/* 

device  field  */ 

*np— >b  wptr++ 

= 

0 

/* 

chain  field  */ 

*  np->b_wptr ++ 

= 

0; 

/* 

address  field  */ 

*np— >b_wptr++ 

= 

((dev  -  1)  «  3)  +  code; 

/* 

interrupt  code  */ 

*  np>->b_wptr ++ 

= 

0 

/* 

data  field  */ 

*np— >b_wptr++ 

= 

3 

/* 

interrupt  class  3 

*/ 

*np— >b  wptr++ 

= 

0 

/* 

control  field  */ 

*np— >b_wptr++ 

= 

0 

/* 

status  register  2 

*/ 

*np— >b_wptr++ 

= 

0 

/* 

status  field  */ 

*np— >b  wptr++ 

= 

0 

/* 

not  used  */ 

if (bp  ==  NULL)  { 
return (np) ; 

} 

linkb(bp,  np); 

} 
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return (bp) ; 


} 


6.8  EXTERNAL  INTERRUPT  WORD  MESSAGE  ROUTINE 


static  mblk_t  * 
mk_e iw ( bp ,  de v ) 
mblk_t  *bp; 
int  dev; 

{ 

mblk_t  *np; 
struct  ioc  *p; 


p  =  iioc_ioc[dev] ; 


if((np  =  allocb( sizeof ( struct  msg_cntl_part ) , 
printf("ioc:  mk_eiw:  allocb  failedXn"); 

} 


else  { 

np— >bdatap— >db 
*np->b_wptr++  = 
*np->b_wptr++  = 
*np->b_wptr++  = 
*np->b_wptr++  = 
*np->b_wptr++  = 
*np->b_wptr++  = 

*np->b_wptr++  = 
*np— >b_’/ptr++  = 
*np->b_wptr++  = 
*np->b_wptr++  = 
*np— >b_wptr++  = 
*nj>->b_wptr++  = 
if (bp  ==  NULL) 
return (np) ; 

} 

linkb(bp,  np); 

} 

return (bp) ; 


type  =  M_PROTO; 

WRITE_EI_WORD; 

DISCARD; 

(unsigned  char)dev; 
0; 

p->ei_word[ 0 ]  »  8; 
p->ei_word[ 0 ] ; 

p->ei_word [ 1 ]  »  8 ; 
p->ei_word( 1 ] ; 

0; 

p— >ei_size ; 

0; 

0; 


BPRI_MED ) )  ==  NULL )  { 


/*  function  field  */ 

/*  ack  field  */ 

/*  device  field  */ 

/*  chain  field  »/ 

/*  address  field  */ 

/*  32-bit  El  word  extension 

/*  data  field  */ 

/*  El  word  data  */ 

/*  control  field  */ 

/*  El  word  size  in  bytes  */ 
/*  status  field  •/ 

/*  not  used  */ 


6.9  ROUND-ROBIN  UPPER  WRITE  QUEUE  SCHEDULER 

static  queue_t  * 
get_next_q( ) 


/*  next  device  to  be  checked  •/ 


static  int  next; 
int  i; 

int  start;  /*  first  device  to  be  checked  •/ 

register  queue_t  »q; 

start  =  next; 

for(i  =  next;  i  <  ioc_cnt;  i++)  { 
if(q  =  ioc_ioc[ i] .qptr )  { 
q  =  WR(q); 

if (q— >q_f irst  !=  NULL)  {  /*  if  queue  non-empty  */ 

next  =  i  +  1 ; 
return(q) ; 

} 

} 

} 

for(i  =  0;  i  <  start;  i++)  { 
if(q  =  ioc_ioc [ i ] .qptr )  { 
q  =  WR(q) ; 

if (q— >q_first  1=  NULL)  {  /*  if  queue  non-empty  •/ 

next  =  i  +  1; 
return(q) ; 

} 

} 

} 

return(NULL) ;  /*  all  queues  empty  */ 


6.10  LOWER  READ  PUT  ROUTINE 

static  int 
ioclrput(q,  mp) 
queue_t  *q; 
mblk_t  *mp; 

{ 

queue_t  *uq; 
int  dev; 

switch ( mp->b_datap->db_type )  { 

case  M_FLUSH;  { 

if ( *mp->b_rptr  &  FLUSHR)  { 
flushq(q,  0); 

} 

if ( *mp->b_rptr  &  FLUSHW)  { 
*mp->b_rptr  &=  -FLUSHR; 
qreply(q,  mp); 

} 
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else  { 

freemsg{mp) ; 

> 

break; 

} 

case  M_ERROR: 
case  M_HANGUP:  { 
iocerr  =  1 ; 
freemsg(mp) ; 
break; 

} 

case  M_PROTO:  ' 

case  M_PCPROTO;  { 

Struct  msg_cntl_part  *p; 
struct  ioc  *iocdp; 

/*  retrieve  device  number  •/ 
p  =  (struct  msg_cntl_part  * ) (mp->b_datap->db_base ) ; 
dev  =  p->device; 

if (dev  <0(1  dev  >=  ioc_cnt)  {  /*  check  device  number  range  */ 

goto  discard; 

} 

uq  =  ioc_ioc ( dev ] . qptr ; 
if(uq  ==  NULL)  { 
goto  discard; 

} 

iocdp  =  sioc_ioc[dev] ; 
switch (p->f unction)  { 
case  MEM_TO_REG:  { 

iocdp->io_reg[p->control  &  OxF]  =  p->data; 
break; 

} 

case  READ__START:  { 
rstart; 

iocdp->io_stat [ 0 ]  1 =  OUT_BUF_ACTIVE ; 
goto  readbcw; 

} 

case  READ_BUF:  { 
rbuf : 

iocdp->io_stat(0]  &=  -OUT_BUF_ACTIVE; 
readbcw: 

iocdp— >io_reg[OUT_BCW]  =  p— >control; 


/*  identify  upstream  read  queue  */ 
/*  discard  message  if  no  queue  */ 
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iocdp— >io_reg[OUT  BAP]  =  p->address; 
break ; 

} 

case  WRITE_START:  { 
wstart : 

iocdp->io_stat [ 0 ]  | =  IN_BUF_ACTIVE ; 
goto  writebcw; 

} 

case  WRITE_BUF:  { 
wbuf ; 

iocdp->io_stat[ 0 ]  &=  -IN_BUF_ACTIVE; 
writebcw: 

iocdp->io_reg[ IN_BCW]  =  p->control; 
iocdp->io_reg[ IN_BAP]  =  p->address; 
break; 

} 

case  EF_START:  { 

if{p->chain  ==  OUTPUT)  { 
goto  rstart; 

} 

goto  wstart; 

} 

case  EF_BUF;  { 

if(p->chain  ==  OUTPUT)  { 
goto  rbuf; 

} 

goto  wbuf; 

} 

case  TEST_AND_SET:  { 

if(p->data  &  BF_FLAG)  { 
goto  setcond; 

} 

else  { 

goto  clearcond; 

} 

} 

case  TEST_WORD:  { 

if(p->data  &  p->control)  { 
clearcond: 

iocdp->io_stat [ 0 ]  &=  -COND_TEST; 
break; 

} 

else  { 
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setcond: 

iocdp->io_stat(0]  |=  COND_TEST; 
break; 

} 

} 

case  INTERRUPT:  { 

if(p->data  ==  3 )  {  /*  class  3  interrupt  */ 

iocdp->io_stat[ 0 ]  i=  -rupt_to_stat[p->address  t  0x7]; 

} 

break; 

} 

} 

if((p->ack  !=  DISCARD)  &&  canput ( uq->q_next ) )  { 

putnext(uq,  n.p);  /*  send  upstream  if  possible  */ 

break; 

} 

else  { 

goto  discard;  /*  otherwise  discard  */ 

> 

}  default;  { 
discard: 

freemsg(mp) ; 

} 

} 

} 

6.11  CLOSE  ROUTINE 

static  int 
iocclose(q) 

queue_t  *q;  /*  pointer  to  read  queue  */ 

{ 

((struct  ioc  * ) q->q  ptr ) ->qptr  =  NULL; 

} 

6.12  PRINT  MESSAGE  DEBUG  ROUTINE 

#if  DEBUG  >  0 


static  char  *function_ 

str[  ] 

= 

"NO_FUNCTION" , 

/* 

0 

no  function  specified 

*/ 

"I0_CELL", 

/* 

1 

10  command  cell 

*/ 

"READ_INST" , 

/* 

2 

read  instruction 

*/ 

"READ_INST_Y" , 

/* 

3 

read  instruction  y  field 

*/ 
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" JUMP_INST" , 

" JUMP_STAT" , 

"READREG" , 

''WRITE_REG"  , 

•'REG_TO_MEM"  , 

''MEM_TO_REG"  , 

''READ_START" , 

''READ_BUF"  , 

''WRITE_START'' , 

''WRITE_BUF"  , 

"EF_START" , 

''EF_BUF"  , 

’’WRITE_WORD'' , 

"INTERRUPT", 

"STAT_TO_MEM" , 

"WRITE_STAT" , 

"TEST_WORD" , 

"TEST_AND_SET" , 

"CHAN_CONTROL" , 

" WRI TE_E I_WORD " 

}; 

static  int 
prmsg(mp,  s) 
mblk^t  *mp; 
char  *s; 

struct  insg_cntl_part  *p; 

mblk_t  *bp; 

unsigned  short  t;  if(s)  { 
printf ( "%s : \n" ,  s); 

} 

for (bp  =  mp;  bp  !=  NULL;  bp  =  bp— >b_cont)  { 
switch ( bp->b_datap->db_type )  { 
case  M_PROTO: 
case  M_PCPROTO:  { 

p  =  (struct  insg_cntl_part  * ) (bp->b_datap->db_base ) ; 

t  =  p— >function; 

if(t  >  0  iS  t  <  ( sizeof ( function_str )  /  sizeof ( *function_str ) ) )  { 
printf ("  %s",  function_str [t ] ) ; 

} 

else  { 

printf ("  %x",  t); 

} 

printf (",  ack  %s",  (p->ack  ==  DISCARD)  ?  "DISCARD"  :  "REPLY"); 

printf (",  device  %x",  p->device); 

printf (",  chain  %s\n",  (p->chain  ==  OUTPUT)  ?  "OUTPUT"  :  "INPUT") 


/* 

4 

jump  to  new  instruction 

•/ 

/* 

5 

jump  if  status  bit  set 

*/ 

/* 

6 

read  control  register 

*/ 

/* 

7 

write  control  register 

•/ 

/* 

8 

copy  control  register  to  memory 

*/ 

/* 

9 

copy  memory  to  control  register 

*/ 

/* 

10 

read  BCW  and  BAP 

*/ 

/* 

11 

read  memory  user  data  buffer 

•/ 

/* 

12 

write  BCW  and  BAP 

*/ 

/* 

13 

write  memory  user  data  buffer 

•/ 

/* 

14 

read  BCW  and  BAP 

•/ 

/* 

15 

read  memory  user  data  buffer 

*/ 

/* 

16 

atomic  read— modify— write 

*/ 

/• 

17 

generate  UYK-44  interrupt 

*/ 

/* 

18 

copy  status  register  to  memory 

*/ 

/* 

19 

write  status  register 

*/ 

/* 

20 

test  memory  word 

*/ 

/* 

21 

test  and  set  memory  word 

•/ 

/* 

22 

channel  control 

*/ 

/* 

23 

write  external  interrupt  word 

*/ 

printf("  address  %x,  data  %x,  control  %x,  status  %x\n“, 
p->address,  p->data,  p->control,  p->status ) ; 
break; 

} 

case  M_DATA:  { 

printf("  block  of  %d  bytes\n",  bp->b_wptr  -  bp->b_rptr); 
break; 

} 

} 

} 

> 

#endif 


6.13  PRINT  CHANNEL  REGISTER  DEBUG  ROUTINE 

#if  DEBUG  >  0 
Static  int 
prreg(mp,  s) 
inblk_t  *inp; 
char  *s; 

{ 

struct  msg_cntl_part  *p; 
int  i;  if(s)  { 

printf ( "%s; \n" ,  s); 

} 

p  =  (struct  msg_cntl_part  * ) (inp->b_datap->db_base) ; 

printf ( ”  io_reg [ 0-7 ] : " ) ; 
for(i  =0;  i  <  8;  i++)  { 

printf ("  %x",  ioc_ioc[p->device] .io_reg[i] ) ; 

> 

printf ("\n  io_stat[ 0-3 ] : " ) ; 
for(i  =0;  i  <  4;  i++)  { 

printf ("  %x",  ioc_ioc[p->device] .io_statti] ) ; 

} 

printf ( "\n" ) ; 

} 

#endif 
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7.0  lOA  MODULE  SOURCE  LISTING 


7.1  GLOBAL  DECLARATIONS 


#ifndef  DEBUG 
#  define  DEBUG  0 
#endif 


#include  "epmsg.h" 
#include  "epcntl.h" 


#include 

#include 

#include 

#include 

#include 

#include 

#include 

#include 

#include 

#include 

#include 


<sys/types.h> 
<sys/param.h> 
<sys/sysmacros .h> 
<sys/stream. h> 
<sys/stropts.h> 
<sys/dir .h> 
<sys/signal . h> 
<sys/user.h> 
<sys/errno.h> 
<sun/vddrv.h> 
<sys/conf .h> 


/*  stream  related  declarations  */ 


static 

static 

static 

static 

static 

static 


int  ioaopen(); 
int  ioarput(); 
int  ioarsvr(); 
int  ioawput(); 
int  ioawsvr ( ) ; 
int  ioaclose(); 


/*  open  routine,  called  on  each  open  */ 

/*  read  QUEUE  put  procedure  */ 

/*  read  QUEUE  service  routine  */ 

/*  write  QUEUE  put  procedure  */ 

/*  write  QUEUE  service  routine  */ 

/*  close  routine,  called  on  last  close  */ 


static  struct  module_info  minfo  =  { 

0,  /*  ID  number  */ 

"ioa",  /*  ncune  */ 

0,  /*  QUEUE  minimum  packet  size  accepted  */ 

INFPSZ,  I*  QUEUE  maximum  packet  size  accepted  */ 

150,  /*  QUEUE  flow  control  high  water  mark  *! 

50  /*  QUEUE  flow  control  low  water  mark  */ 


}; 


static  struct 
ioarput, 
ioarsvr , 
ioaopen, 
ioaclose. 


qinit  rinit  =  { 

/*  read  QUEUE  put  routine  */ 

/*  read  QUEUE  service  routine  */ 

/*  open  routine,  called  on  each  open  */ 

/*  close  routine,  called  on  last  close  */ 


NULL, 

&ininfo, 

NULL 


/*  reserved  */ 

/*  pointer  to  read  QUEUE  information  structure  •/ 
/*  pointer  to  read  QUEUE  statistics  structure  •/ 


static  struct  qinit  winit  =  { 


ioawput, 

/* 

write  QUEUE  put  routine  */ 

ioawsvr , 

/* 

write  QUEUE  service  routine  */ 

NULL, 

/* 

ignored  */ 

NULL, 

/* 

ignored  •/ 

NULL, 

/* 

reserved  */ 

&minfo. 

/* 

pointer  to  write  QUEUE  information  structure  •/ 

NULL 

/* 

pointer  to  write  QUEUE  statistics  structure  •/ 

struct  streeuntab 

ioainfo  = 

irinit. 

/* 

swinit. 

/* 

NULL, 

/* 

NULL, 

/• 

NULL 

/* 

}; 


{ 

pointer  to  read  QUEUE  initialization  structure  */ 
pointer  to  write  QUEUE  initialization  structure  •/ 
multiplexer  drivers  only  —  not  used  */ 
multiplexer  drivers  only  -  not  used  •/ 
pointer  to  module  push  list  on  first  open  */ 


7.2  LOADABLE  MODULE  STRUCTURES 

extern  struct  fmodsw  fmodsw[]; 

static  struct  fmodsw  ioa_fsw  =  { 

"ioa" , 
fiioainfo, 

}; 

static  int  ioa_loaded; static  struct  vdldxrv  ioa_drv  =  { 


VDMAGIC_PSEUDO, 

/* 

Drv_magic  */ 

"ioa" , 

/* 

Drv_name  * / 

#if  sun4c 

NULL, 

/* 

Drv_dev_ops  » / 

#else 

NULL, 

/* 

Drv_mb_ctlr  */ 

NULL, 

/* 

Drv_mb_driver  */ 

NULL, 

/* 

Drv_mb_device  * / 

0, 

/* 

Drv_numctlrs  */ 

0, 

/* 

Drv_numdevs  * / 

#endif 

0, 

/* 

Drv_bdevsw  */ 

0, 

/* 

Drv_cdevsw  */ 

0, 

/* 

Drv_blockma jor  */ 
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0 


/*  Drv_charma jor  •/ 


>; 


7  J  LOADABLE  MODULE  INITIALIZATION 

int 

ioainit( command,  vdp,  vdi,  vds) 
int  command; 
struct  vddrv  *vdp; 
struct  vdioctl_load  *vdi; 
struct  vdstat  »vds; 

{ 

extern  int  fmodcnt; 
int  i; 

switch (command)  { 
case  VDLOAD :  { 

/*  Since  loadable  STREAMS  modules  don't  work,  link  ourselves  */ 

/*  into  the  fmodsw.  */ 

/*  find  a  free  slot  •/ 
i  =  0; 

while(  {  fmodsw[  i  ] .  f_name[  i  ]  ==  '\0')  (■&  (++i  <  fmodcnt))  /*  null  •/ 
if(i  >=  fmodcnt)  { 
return ( ENOSPC ) ; 

} 

fmodsw[i]  =  ioa_fsw; 

vdp— >vdd_vdtab  =  (struct  vdlinkage  *)tic  _drv; 
return ( 0 ) ; 

} 

case  VDUNLOAD ;  { 
if ( ioa_loaded)  { 
return (EBUSY) ; 

} 

i  =  0; 

/*  find  the  loaded  version.  Don't  look  for  "ioa"  */ 

/*  in  case  it  is  configured  in  too.  */ 
while ( fmodsw[ i ]. f_str  !=  ioa_fsw.f_str)  { 
i++; 

} 

/*  now  move  everyone  down  one  level  */ 
do  { 

fmodsw[i]  =  fmodsw[i+l]; 


87 


■ 


}  while( ( fmodsw[ i+1 ] . f_neune[ 0 ]  !=  '\0')  &&  ( ++i< ( fmodcnt-1 ) ) ) ; 
return(O) ; 

} 

case  VDSTAT:  { 
return ( 0 ) ; 

} 

default:  { 

return (EINVAL) ; 

} 

} 

} 

7.4  OPEN  ROUTINE 

static  int 

ioaopen(g,  dev,  flag,  sflag) 
queue_t  *q; 
dev_t  dev; 
int  flag; 
int  sflag; 

{ 

#if  DEBUG  >  0 

printf("ioa  open,  dev  %x\n", 

#endif 

return ( 0 ) ; 

} 

7.5  READ  PUT  ROUTINE 

static  int 
ioarput(q,  mp) 
queuet  *q; 
mblk_t  *mp; 

{ 

switch (mp—>b_datap—>db_type)  { 

case  M_FLUSH:  { 

if ( *mp->b_rptr  &  FLUSHR)  { 
flushq(q,  FLUSHDATA) ; 

} 

} 

default;  { 

putnext(q,  mp); 
break; 

} 


/*  if  flush  read  flag  set  */ 
/*  flush  read  QUEUE  */ 


/*  send  message  upstrecim  */ 


/*  pointer  to  read  queue  */ 
/*  pointer  to  message  */ 


/*  pointer  to  read  QUEUE  */ 

/*  major  and  minor  device,  0  for  modules  */ 
/•  file  open  flags,  0  for  modules  •/ 

/*  stream  open  flags  */ 

dev  &  OxFF) ; 
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case  MPROTO: 
case  M_PCPROTO:  { 

putq(q,  mp);  /•  put  message  on  read  queue  »/ 

qenable(q) ; 

break; 

} 

} 

return ( 0 ) ; 

} 

7.6  READ  QUEUE  SERVICE  ROUTINE 

static  int 
ioarsvr (q) 
queue_t  *q; 

{ 

mblk_t  *mp; 

struct  msg_cntl_part  *p; 

while(mp  =  getq(q))  {  /•  only  M_PROTO  messaged  were  queued 

*/ 

p  =  (struct  msg_cntl_part  * ) ( mp->b_datap->db_base ) ; 

#if  DEBUG  >  0 
prmsg(mp,  "ioarsvr" ) ; 

#endif 

if { P->status )  {  /*  if  downstream  10  fault  */ 

mp->b_datap->db_type  =  M_ERR0R; 
mp— >b_rptr  =  mp— >b_wptr  =  mp->b_datap->db_base ; 

*mp->b_wptr++  =  EIO;  /*  send  10  error  upstream  */ 

putnext(q,  mp); 

} 

switch(p->function)  { 
case  I0_CELL;  { 

switch (p->control  »  8)  {  /*  switch  on  opcode  */ 

case  OxEO:  {  /*  RR  channel  control  */ 

p->function  =  CHAN_C0NTR0L ; 

switch (p->control  &  OxF)  {  /*  switch  on  m  field  */ 

case  0x0:  {  /*  clear  all  channels  */ 

p->data  =  p->control  =  ( IN_CH_ABORT | OUT_CH_ABORT) ; 
allchan: 

p->address  =  OxFFFF; 
goto  cmdmsg; 

} 

case  0x4:  {  /*  enable  all  channel  El  data  */ 
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p->data  =  EIE_LINE; 
p->control  =  OxFFFF; 
goto  allchan; 

} 

case  0x5;  {  /*  disable  all  channel  El  data  */ 

p->data  =  0; 
p->control  =  '-EIE_LINE; 
goto  allchan; 

} 

case  0x6;  {  /«  enable  lower  channel  interrupts  */ 

p->address  =  (p->control  &  OxOOFO) 

?  (1  «  ((p->control  >>  4 )  i  OxF))  -  1 
:  OxFFFF; 

p->data  =  RUPT_GEN; 
p->control  =  OxFFFF; 
goto  cmdmsg; 

} 

case  0x7;  {  /»  disable  lower  channel  interrupts  */ 

p->address  =  (p->control  &  OxOOFu; 

?  ( 1  ((p->control  >>  4 )  t  OxF))  -  1 
;  OxFFFF; 

p->data  =  0; 
p->control  =  -RUPT_GEN; 
goto  cmdmsg; 

} 

case  0x8:  {  /*  clear  channel  a  •/ 

p->data  =  ( IN_CH_ABORT I OUT_CH_A30RT ) ; 
cleara: 

{>->control  =  ( IN_CH_ABORT I OUT_CH_AECRT ) ; 
chana: 

p->address  =  1  <<  ( (p->control  »  4)  6  OxF); 
goto  cmdmsg; 

} 

case  0x9;  {  /*  clear  channel  a  input  */ 

p->data  =  IN_CH_ABORT; 
goto  cleara; 

} 

case  OxA:  {  /*  clear  channel  a  output  */ 

p->data  =  OUT_CH_ABORT ; 
goto  cleara; 

} 

case  OxC:  {  /*  enable  channel  a  El  data  */ 

p->data  =  EIE_LINE; 
p->control  =  OxFFFF; 
goto  chana; 

} 

case  OxD;  {  /*  disable  channel  a  El  data  */ 
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*/ 


p->data  =  0; 
f>->control  =  -EIE_LINE; 
goto  Ghana; 

} 

case  OxE;  { 

p->data  =  RUPT_GEN; 
p->control  =  OxFFFF; 
goto  Ghana; 

} 

case  OxF:  { 
p->data  =  0; 
p->control  =  -RUPT_GEN; 
goto  Ghana; 

} 

default:  { 

p— >control  =  3 ; 
goto  badcmd; 

/ 

} 

} 

case  0xE6:  { 

p-> function  =  WRITE_REG; 

p->data  =  p->address; 

switch (p->control  &  OxF)  { 

case  2:  { 

p->chain  =  INPUT; 
p->ack  =  REPLY; 
goto  replymsg; 

} 

case  6 :  { 

p->chain  =  OUTPUT; 
p->ack  =  REPLY; 
goto  replymsg; 

} 

default:  { 
goto  cmdmsg; 

} 

} 

} 

case  0xE7:  { 

p->f unction  =  MEM_TO_REG; 

goto  cmdmsg; 

} 

case  OxEB:  { 


/*  enable  channel  a  interrupts  */ 


/*  disable  channel  a  interrupts  */ 


/*  initiate  input  chain  »/ 


/*  initiate  output  chain  ♦/ 


/*  RK  load  channel  control  register  */ 


/♦  RX  load  channel  control  register  */ 


/*  RX  store  channel  control  register 


p->function  =  REG_TO_MEM; 
goto  cmdmsg; 
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} 

case  0xF8:  {  /*  set/clear  discretes  */ 

/*  not  coded  yet  */ 
goto  discardmsg; 

} 

case  OxFB;  {  /*  RX  store  status  register  */ 

if ( (p— >control  &  OxE)  ==  0x8)  { 
p->function  =  STAT_TO_MEM; 
p->control  =  0; 
goto  cmdmsg; 

} 

} 

default:  {  /*  Illegal  IOC  coiranand  */ 

p->control  =  3 ; 
goto  badcmd; 

} 

} 

} 

case  READ_INST: 
case  JUMP_INST: 
case  JUMP_STAT :  { 

switch (p->data  »  8)  ■{ 


case 

0xE3: 

/* 

RX 

initiate  transfer  */ 

case 

0xE6: 

/* 

RK 

load  channel  control 

register  */ 

case 

0xE7: 

/* 

RX 

load  channel  control 

register  */ 

case 

OxEB: 

/* 

RX 

store  channel  control 

.  register 

case 

OxEF  : 

/* 

RX 

set/clear  flag  */ 

case 

0xF2: 

/* 

RK 

conditional  jump  */ 

case 

OxFB:  { 

/* 

RX 

store  channel  status 

register  ♦/ 

p->f unction  =  READ_INST_Y; 
p->control  =  p->data; 


goto  replymsg; 

} 

case  OxEO:  {  /*  RR  channel  control  */ 

p—>f unction  =  CHAN_CONTROL ; 

switch ( p->data  &  OxF)  {  /*  switch  on  m  field  */ 

case  0x0:  {  /*  clear  all  channels  */ 

p— >data  =  p— >control  =  ( IN_CH_ABORT | OUT_CH_ABORT ) ; 
allchanx: 

p— >address  =  OxFFFF; 
goto  replymsg; 

} 

case  0x4:  {  /*  enable  all  channel  El  data  */ 

p->data  =  EIE_L1NE; 
p->control  =  OxFFFF; 
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goto  allchanx; 


case  0x5 :  { 
p->data  =  0; 
p->control  =  -EIE_LINE; 
goto  allchanx; 


/•  disable  all  channel  El  data  */ 


case  0x6;  {  /*  enable  lower  channel  interrupts  */ 

p->address  =  {p->control  &  OxOOFO) 

?  (1  «  ((p->control  »  4 )  s  OxF))  -  1 
;  OxFFFF; 

p->data  =  RUPT_GEN; 
p->control  =  OxFFFF; 
goto  cmdmsg; 

} 

case  0x7:  {  /*  disable  lower  channel  interrupts  */ 

p->address  =  (p->control  &  OxOOFO) 

?  (1  «  ((p->control  »  4)  i  OxF))  -  1 
:  OxFFFF; 

p->data  =  0; 
p->COntrol  =  -RUPT_GEN; 
goto  cmdmsg; 

} 

case  0x8;  {  /*  clear  channel  a  */ 

p->data  =  ( IN_CH_ABORT I OUT_CH_ABORT ) ; 
clearx: 

p->Control  =  ( IN_CH_ABORT \ OUT_CH_ABORT ) ; 
chandev; 

p->address  =  1  «  ( {p->device  -  1)  s  OxF); 
goto  replymsg; 

} 

case  0x9:  {  /*  clear  channel  a  input  */ 

p->data  =  IN_CH_ABORT; 
goto  clearx; 

} 

case  OxA;  {  /*  clear  channel  a  output  •/ 

p->data  =  OUT_CH_ABORT; 
goto  clearx; 


case  OxC:  { 

p->data  =  EIE_LINE; 
p->control  =  OxFFFF; 
goto  chandev; 


/*  enable  channel  a  El  data  */ 


case  OxD:  { 
p->data  =  0; 
p->control  =  -EIE_LINE; 


/*  disable  channel  a  El  data  */ 


goto  chandev; 


} 

case  OxE;  {  /*  enable  channel  a  interrupts  */ 

p->data  =  RUPT_GEN; 
p->control  =  OxFFFF; 
goto  chandev; 

} 

case  OxF;  {  /*  disable  channel  a  interrupts  */ 

p->data  =  0; 
p->control  =  -RUPT_GEN; 
goto  chandev; 

} 

default:  { 

goto  badinst; 

} 

/ 

} 

case  OxEC:  { 

if(p— >data  &  0x0010)  {  /*  rr  interrupt  processor  */ 

p->data  =  CLASS_3; 

p->address  =  (p->chain  ==  INPUT)  ?  0x2  :  0x4; 
p->control  =  0; 
goto  dorupt; 

> 

else  {  /*  RR  halt  chain  */ 

p->address  =  1  «  {(p->device  -  1)  s.  OxF); 
p->data  =  0; 

p->control  =  (p->chain  ==  INPUT) 

?  -IN_CH_ACTIVE  :  -OUT_CH_ACTIVE ; 
p-> function  =  CHAN_CONTROL; 
goto  cmdmsg; 

} 

} 

default:  {  /*  illegal  chain  instruction  */ 

badinst: 

p->control  =  (p->chain  ==  INPUT)  ?  0  :  1; 
badcmd : 

p->ac)c  =  DISCARD; 
p->data  =  CLASS_2; 
p->address  =  COMMAND_FAULT; 
p— >control  +=  (p— >device  —  1)  «  2; 
dorupt : 

p->f unction  =  INTERRUPT; 
goto  replymsg; 

} 

} 

} 
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case  READ_lNST_y:  { 

switch (p->control  >>  8)  { 

case  OxE3:  {  /•  Rx  initiate  transfer  */ 

switch  {  (p->control  »  4 )  £,  0x3)  { 

case  0:  {  /*  Input  to  UYK-44  */ 

p->function  =  WRITE_START; 
goto  replymsg; 

} 

case  1:  {  /»  Output  from  UYK-44  */ 

p->function  =  READ_START; 
goto  replymsg; 

} 

case  3:  {  /*  Output  forced  external  function  */ 

mp->b_datap->db_type  =  M_PCPROTO; 

} 

case  2:  {  /*  Output  external  function  */ 

p->function  =  EF_START; 
goto  replymsg; 

} 

default:  { 
goto  badinst; 

} 

} 

} 

case  0xE6;  {  /*  RK  load  control  memory  */ 

p->function  =  WRITE_REG; 
goto  replymsg; 

} 

case  0xE7 ;  {  /*  rx  load  control  memory  */ 

p->f unction  =  MEM_TO_REG; 
p->address  =  p->data; 
goto  replymsg; 

} 

case  OxEB:  {  /*  rx  store  control  register  */ 

f>->function  =  REG_TO_MEM; 
p->address  =  p->data; 
goto  replymsg; 

} 

case  OxEF;  {  /*  rx  set/clear  flag  */ 

p— >address  =  p->data; 
switch ( (p->control  »  4)  &  OxF)  { 

case  0:  {  /*  RX  zero  flag  */ 

p->function  =  WRITE_WORD; 
p->data  =  ALL_ZEROS; 
p->control  =  BF_FLAG; 
goto  replymsg; 


} 


case  1;  {  /*  RX  set  flag  */ 

p->function  =  WRITE_WORD; 
goto  setflag; 

} 

case  2;  {  /*  RX  test  and  set  flag  •/ 

p->function  =  TEST_AND_SET; 
setflag: 

p->data  =  ALL_ONES; 
p->COntrol  =  BF_FLAG; 
goto  replymsg; 

} 

case  4:  {  /•  RX  zero  bit  m  at  Y  */ 

p—>f unction  =  WRITE_WORD; 
p->data  =  ALL_ZEROS; 
goto  mbit; 

} 

case  5:  {  /*  RX  set  bit  m  at  Y  */ 

p— >function  =  WRITE_WORD; 
goto  setmbit; 

} 

case  7;  {  /*  RX  compare  bit  m  at  Y  to  zero  */ 

p->function  =  TEST_WORD; 
setmbit : 

p->data  =  ALL_ONES; 
mbit: 

p->control  =  (1  «  (p->control  &  OxF)); 
goto  replymsg; 

} 

default:  {  /*  Illegal  chain  instruction  */ 

goto  badinst; 

} 

} 

} 

case  0xF2:  {  /*  RK  conditional  jump  */ 

p->address  =  p->data; 
switch ( (p->control  »  4)  &  OxF)  { 

case  0:  {  /*  unconditional  jump  */ 

p->f unction  =  JUMP_INST; 
goto  replymsg; 

} 

case  4:  {  /*  jump  if  status  COND_TEST  set  */ 

p->function  =  JUMP_STAT; 
p->COntrol  =  COND_TEST; 
goto  replymsg; 
break; 

} 

case  8:  {  /*  jump  if  status  IN_BUF_ACTIVE  set  */ 
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p->f unction  =  JUMP_STAT; 
p->COntrol  =  IN_BUF_ACTIVE; 
goto  replymsg; 

} 

case  9:  {  /*  jump  if  status  OUT_BUF_ACTIVE  set 

p—>f unction  =  JUMP_STAT; 
p->COntrol  =  OUT_BUF_ACTIVE ; 
goto  replymsg; 

} 

defualt:  { 
goto  badinst; 

} 

} 

} 

case  OxFB:  {  /*  RX  store  status  register  */ 

if ( (p->control  &  OxE)  ==  0x8)  { 
p->function  =  STAT_TO_MEM; 
p— >address  =  p->data; 
p->control  =  0; 
goto  replymsg; 

} 

goto  badinst; 

} 

} 

break; 

} 

case  WRITE_START;  { 

p—>f unction  =  WRITE_BUF; 

p— >chain  =  INPUT;  /*  converts  output  chains  to  input  */ 

/*  o’'ercome  write  queue  blocking  */ 
mp->b_datap->db_type  =  M_PCPROTO; 

putq(WR(q),  mp);  /*  put  message  on  write  queue  */ 

return ( 0 ) ; 

} 

case  READ_START;  { 

p~>f unction  =  R£AD_BUF; 

p— >chain  =  OUTPUT;  /*  converts  input  chains  to  output  */ 

goto  replymsg; 

} 

case  EF_START:  { 

p->f unction  =  EF_BUF; 
p->chain  =  OUTPUT; 
goto  replymsg; 
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case  EF_BUF: 
case  READ_BUF:  { 
mblk_t  *np; 

np  =  unlinkb(mp);  /*  disconnect  M_PROTO  header  */ 

if(np  !=  NULL)  { 

if  (p->f unction  ==  EF_BUF)  •{ 

np->b_datap->db_type  =  nvp->b_datap->db_type ; 
mp~>b_datap->db_type  =  MPROTO; 

} 

putnext(q,  np) ;  /»  send  data  upstream  */ 

} 

} 

default:  { 

p->f unction  =  READ_INST; 
p->ack  =  REPLY; 
goto  replymsg; 

} 

} 

discardmsg: 
freemsg(mp) ; 
continue;  cmdmsg: 
p->ack  =  DISCARD; 

#if  DEBUG  >  0 
prmsg(mp,  "cmdmsg" ) ; 

#endif 

replymsg; 

if(p->limit  !=  0)  { 
p->  limit — ; 
if(p->limit  ==  0)  { 

( void ) printf { "limited  terminated  chain\n" ) ; 
goto  discardmsg; 

} 

} 

qreply(q,  mp); 
continue; 

} 

} 


7.7  WRITE  PUT  ROUTINE 

static  int 
ioawput(q,  mp) 

queue_t  *q;  /*  pointer  to  write  QUEUE  */ 

mblk_t  *mp;  /*  pointer  to  message  */ 

{ 
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switch {mp->b_datap->db_type)  { 
case  M_FLUSH:  { 

if ( *mp->b_rptr  &  FLUSHW)  {  /*  if  flush  write  flag  set  */ 

flushq(q,  FLUSHDATA) ;  /*  flush  write  QUEUE  */ 

> 

} 

default;  { 
tonext : 

putnext(q,  mp);  /*  send  message  downstream  */ 

break; 

} 

case  M_DATA;  { 

putq(q,  mp);  /•  put  data  into  write  queue  * 

qenable(q) ; 

break; 

} 

case  M_IOCTL:  { 

struct  iocblk  *iocp; 
mblk_t  *np; 
mblk_t  *bp; 

iocp  =  (struct  iocblk  • )mp->b_rptr ; 

if ( iocp->ioc_cmd  ==  EXT_INTR)  { 
unsigned  short  eichar[4]; 


{ 


{ 


switch ( iocp->ioc_count)  { 
case  4 :  { 

eichar[0]  =  *mp->b_cont->b_rptr++; 
eichar[l]  =  *mp->b_cont->b_rptr++; 

} 

case  2 :  { 

eichar[2]  =  *mp— >b_cont— >b_rptr++; 

} 


case  1 :  { 
eichar[ 3 ] 


*mp— >b_cont— >b_rptr++ ; 


if((np  =  allocb( sizeof ( struct  msg_cntl_part ) ,  BPRI_MED))  = 


goto  badalloc; 

} 

if((bp  =  allocb( sizeof ( struct  msg_cntl_part) ,  BPRI_MED) )  = 


freeb(np) ; 
badalloc : 

printf ( "ioa; 


ioawput;  allocb  failedXn"); 


=  NULL) 


=  NULL) 
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goto  badcntl; 


} 

np->b_datap->db_type  =  M_PROTO; 


*np->b_wptr++  =  WRITE_EI_WORD; 

/* 

function  field  •/ 

*np->b_wptr++  =  DISCARD; 

/• 

ack  field  »/ 

*np— >b_wptr++  =  0 

r 

/* 

device  field  */ 

*np->b_wptr++  =  0 

/* 

chain  field  •/ 

*np->b_wptr++  =  eichar(0}; 

/* 

address  field  •/ 

*np->b_wptr++  =  eichar[l]; 

/* 

El  word  extension  •/ 

*np->b_wptr++  =  eichar[2]; 

/* 

data  field  •/ 

*np->b_wptr++  =  eichar[3]; 

/* 

El  word  data  */ 

*np->b_wptr++  =  0 

• 

/* 

control  field  */ 

*np— >b_wptr++  =  iocp->ioc_count; 

/» 

El  word  size  in  bytes 

*np— >b  wptr++  =  0 

' 

/* 

status  field  */ 

•np->b_wptr++  =  0; 

bp->b_datap->db_type  =  MPROTO; 

/* 

not  used  */ 

*bp->b_wptr++  =  INTERRUPT; 

/* 

function  field  •/ 

*bp->b_wptr++  =  DISCARD; 

/* 

ack  field  */ 

*bj>->b  wptr++  =  0 

/* 

device  field  •/ 

*bp— >b_wptr++  =  0 

/• 

chain  field  •/ 

*bp->b_wptr++  =  0 

/* 

address  field  •/ 

*bp->b_wptr++  =  0 

/• 

interrupt  code  •/ 

*bp->b_wptr++  =  0 

/* 

data  field  •/ 

*bp->b_wptr++  =  3 

/* 

interrupt  class  3  •/ 

*bp— >b_wptr++  =  0 

/* 

control  field  •/ 

*bp->b_wptr++  *  0 

/* 

status  register  2  •/ 

*bp->b_wptr++  =  0 

/* 

status  field  */ 

*bp->b_wptr++  =  0 

/* 

not  used  */ 

linkb(np,  bp); 

/* 

append  interrupt  */ 

putnext(q,  np) ; 

iocp->ioc_error  =  0; 
iocp->ioc__rval  =  0 ; 
nip->b_datap->db_type  =  M_IOCACK; 
break; 

> 

default:  { 

/• 

send  downstream  */ 

badcntl ; 

iocp->ioc_error  =  EINVAL; 
iocp— >ioc_rval  =  —1; 
mp->b_datap->db_type  =  M_IOCNAK; 
break; 

} 

} 

if  (inp->b_cont)  { 
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freemsg(mp->b_cont ) ; 
mp->b_cont  =  NULL; 

} 

ctlrpy : 

iocf>->ioc_count  =  0; 

qreply(q,  mp) ; 

break; 

} 

else  if  (  ioCt.->ioc_cmd  ==  CHANNEL_TyPE )  { 

unsigned  char  chtype; 

if ( iocp->ioc_count  !=  1)  { 
goto  badcntl; 

} 

chtype  =  *mp->b_cont— >b_rptr++; 

if((np  =  allocb( sizeof ( struct  msg_cntl_part ) ,  BPRI_MED) )  ==  NULL)  { 
goto  badalloc; 

} 

np->b_dataE>->db_type  =  MPROTO; 


•np->b_wptr++ 

= 

WRITE_STAT; 

/* 

function  field  */ 

• np— >b_wptr ++ 

= 

DISCARD; 

/• 

ack  field  */ 

•np— >b_wptr++ 

0 

/• 

device  field  */ 

*  n{>->b_v«;ptr++ 

= 

0 

/* 

chain  field  */ 

*np— >b_wptr++ 

= 

0 

/* 

address  field  */ 

*np->b_wptr++ 

= 

0 

/* 

status  register  0 

*/ 

*nf>->b_wptr++ 

= 

0 

/* 

data  field  •/ 

*np->b_wptr++ 

s= 

chtype  «  4 ; 

/* 

channel  type  byte 

•/ 

*np->b_wptr++ 

0 

/* 

control  field  •/ 

•np— >b_wptr++ 

=: 

OxFO; 

/* 

channel  type  field 

mask  */ 

*  np— >b_wptr ++ 

= 

0 

/* 

status  field  */ 

*nE>->b_wptr++ 

= 

0; 

/* 

not  used  •/ 

putq(q,  np); 

/* 

queue  downstream  •/ 

iocp— >ioc_error  =  0; 
iocp— >ioc_rval  =  0; 
mp->b_datap->db_type  =  MIOCACK; 
goto  ctlrpy; 

} 

goto  tonext; 

} 

} 

return ( 0 ) ; 
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7.8  WHITE  QUEUE  SERVICE  ROUTINE 


static  int 

ioawsvr (q) 

queue_t  ‘q; 

{ 

mblk_t  *pmp; 

/* 

pointer 

to 

write  QUEUE  */ 

/* 

pointer 

to 

M_PROTO  WRITE_BUF  message 

«/ 

mblk_t  »dmp; 

/* 

pointer 

to 

M_DATA  message  •/ 

mblk_t  *bp; 

/* 

pointer 

to 

allocated  message  block  */ 

struct  msg_cntl_part  *p; 

/* 

pointer 

to 

M  PROTO  data  block  */ 

unsigned  short  count; 

/* 

number 

of 

bytes  desired  by  UYK— 44  •/ 

int  size; 

/* 

number 

of 

bytes  in  M_DATA  data  block 

•/ 

int  getcount; 

/* 

number 

of 

getq's  required  •/ 

#if  DEBUG  >  1 

print f  (  "ioawsvr :  \n'' ) ; 

#endif 

pmp  =  q— >q_first; 

if(pmp  ==  NULL)  {  /*  check  for  empty  queue  */ 

#if  DEBUG  >  1 
printf("  Empty  queueXn"); 

#endif 

return; 

} 

if {pmp->b_datap->db_type  .'=  M_PCPROTO)  { 

#if  DEBUG  >  1 

printf("  No  available  first  M_PCPROTO  block\n" ) ; 

#endif 

return ; 

} 

if { pmp->b_next  ==  NULL)  { 

#if  DEBUG  >  1 

printf("  No  available  Unix  M_DATA  blocksNn"); 

#endif 

return; 

} 

p  =  (struct  msg_cntl_part  * ) ( pmp— >b_datap->db_base ) ; 
count  =  p->control  &  OxFFF; 
if (count  ==  0)  { 
count  =  0x1000; 

} 

if (p->control  &  0x8000)  •{ 
count  «=  1 ; 

if (p— >control  &  0x4000)  { 
count  «=  1; 


102 


} 


} 

#if  DEBUG  >  1 

printf(''  UYK— 44  chain  M_PCPROTO  requires  %d  bytes\n",  count); 
#endif 

for(dmp  =  pmp->b_cont;  dmp  !=  NULL;  dmp  =  dmp— >b_cont)  { 
count  — =  ( dinp->b_wptr  —  dinp->b_rptr ) ; 

} 

#if  DEBUG  >  1 

printf("  UYK— 44  chain  M_PCPROTO  still  needs  %d  bytes\n",  count); 
#endif 

getcount  =  0; 

for (dmp  =  pmp->b_next;  dmp  !=  NULL;  dmp  =  dmp->b_next)  { 

if (dmp->b_datap— >db_type  ==  M_DATA)  { 
size  =  dmj>->b_wptr  —  dmp->b_rptr; 

#if  DEBUG  >  1 

printf("  Unix  M_DATA  has  %d  bytes\n",  size); 

#endif 

if(size  ==  0)  { 
getcount++; 

} 

else  if (size  <=  count)  { 

if ((bp  =  allocb(size,  BPRI_MED))  ==  NULL)  { 
printf ( "ioawsvr :  size  alloc  failedVn"); 

} 

else  { 

getcount++; 
count  — =  size; 
while(size — )  { 

•bp->b_wptr++  =  *dmp->b_rptr++; 

} 

linkb(pmp,  bp); 
if (count  ==  0)  { 
goto  release; 

> 

} 

} 

else  { 

if ((bp  =  allocb(count,  BPRI_MED) )  ==  NULL)  { 
printf ( "ioawsvr :  count  alloc  failed\n"); 

> 

else  { 

while (count — )  { 
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*bp— >b_wptr++  =  *dmp->b_rptr++; 

} 

linkb{pmp,  bp); 
release; 

#if  DEBUG  >  1 

printf("  Releasing  %d  blocks\n'',  getcount); 
#endif 


} 


pmp  =  getq(q);  /*  dequeue  the  M_PCPROTO  */ 

pmp->b_datap->db_type  =  M_PROTO; 
while (getcount — )  { 

freeinsg(getq(q) ) ;  /*  dequeue  the  empty  M_DATA's  */ 

} 

putnext(q,  pmp);  /*  send  the  WRITE_BUF  downstream  */ 

return; 


7.9  CLOSE  ROUTINE 


/*  pointer  to  read  QUEUE  */ 

/*  file  open  flags,  0  for  modules  */ 

#if  DEBUG  >  0 
printf("ioa  closeXn" ) ; 

#endif 

return ( 0 ) ; 

} 


static  int 
ioaclose(q,  flag) 
queue_t  *q; 
int  flag; 

{ 


7.10  PRINT  MESSAGE  DEBUG  ROUTINE 

#if  DEBUG  >  0 


static  char  *function 

.str[  ] 

= 

{ 

"NO_FUNCTION", 

/* 

0 

no  function  specified 

*/ 

"IO_CELL" , 

/• 

1 

10  command  cell 

*/ 

"READ_INST", 

/* 

2 

read  instruction 

*/ 

"READ_INST_Y", 

/* 

3 

read  instruction  y  field 

*/ 

" JUMP_INST" , 

/* 

4 

jump  to  new  instruction 

*/ 

" JUMP_STAT" , 

/* 

5 

jump  if  status  bit  set 

*/ 

"READ_REG" , 

/* 

6 

read  control  register 

*/ 

"WRITE_REG" , 

/* 

7 

write  control  register 

*/ 

» 
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"REG_TO_MEM" , 

/* 

8 

copy  control  register  to  raemory 

*/ 

"MEM_TO_REG" , 

/* 

9 

copy  memory  to  control  register 

•/ 

"READ_START" , 

/* 

10 

read  BCW  and  BAP 

»/ 

"READ_BUF" , 

/• 

11 

read  memory  user  data  buffer 

*/ 

"WRITE_START" , 

/* 

12 

write  BCW  and  BAP 

•/ 

"WRITE_BUF" , 

/* 

13 

write  memory  user  data  buffer 

*  / 

"EF_START" , 

/* 

14 

read  BCW  and  BAP 

•/ 

"EF_BUF" , 

/* 

15 

read  memory  user  data  buffer 

*/ 

"WRITE_WORD" , 

/* 

16 

atomic  read— modify— write 

*/ 

"INTERRUPT" , 

/* 

17 

generate  UYK— 44  interrupt 

•  / 

"STAT_TO_MEM" , 

/* 

18 

copy  status  register  to  memory 

*/ 

"WRITE_STAT" , 

/* 

19 

write  status  register 

•/ 

"TEST_WORD" , 

/* 

20 

test  memory  word 

*/ 

"TEST_AND_SET", 

/* 

21 

test  and  set  memory  word 

*/ 

"CHAN_CONTROL" , 

/* 

22 

channel  control 

*/ 

"WRITE_EI_WORD" 

}; 

/* 

23 

write  external  interrupt  word 

*/ 

Static  int 
prmsg(rap,  s) 
mblk_t  *rap; 
char  *s; 

struct  msg_cntl_part  *p; 
mblk_t  *bp; 
unsigned  short  t; 

if(s)  { 

printf  { ''%s : \n"  ,  s); 

} 

for (bp  =  rap;  bp  !=  NULL;  bp  =  bp— >b_cont)  { 
switch (bp->b_datap->db_type)  { 
case  M_PROTO: 
case  M_PCPROTO:  { 

p  =  (struct  rasg_cntl_part  * ) (bp->b_datap->db_base ) ; 
t  =  p->f unction; 

if(t  >  0  SiS,  t  <  (sizeof  ( function_str )  /  sizeof  (  *function_str ) )  )  { 
printf ("  %s",  function_str [t] ) ; 

} 

else  { 

printf ("  %x",  t); 

} 

printf (",  ack  %s",  (p->ack  ==  DISCARD)  ?  "DISCARD"  :  "REPLY"); 
printf (",  device  %x",  p->device); 

printf (",  chain  %s\n",  (p->chain  ==  OUTPUT)  ?  "OUTPUT"  :  "INPUT"); 
printf ("  address  %x,  data  %x,  control  %x,  status  %x\n", 

p— >address,  p— >data,  p— >control,  p— >status ) ; 
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break; 

} 

case  M_DATA:  { 

printf("  block  of  %d  bytes\n'',  bp->b_wptr  -  bp->b_rptr); 
break ; 

> 

} 

} 

} 

#endif 
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